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Editorial 


Dès son lancement. Pom's a promis le passage en bimestriel dès que le nombre d'abonnés passerait le 
cap des 2000. Nous avons atteint cet objectif en décembre {deux abonnés sur trois recoivent en outre 
les disquettes). et nous tenons notre promesse à partir de mars. vous aurez six numéros par an. à la 
fin de chaque mois impair. Le tirage augmente également. de 7000 exemplaires actuels (tous vendus) à 
12000, afin de pouvoir vous offrir Pom s en kiosque. De nombreux lecteurs nous disent avoir du mal à 
trouver Pom's ans les boutiques de micro-informatique si c'est le cas. n'oubliez pas de demander à 
votre revendeur d'en commander: sinon. cela ne s'améliorera pas 


Cette fois-ci, Olivier Herz nous à bien quitté pour le Japon. après trois mois de faux départs. Heureu- 
sement, i/ nous a laissé quelques contributions ‘posthumes” que nous vous faisons partager avec plaisir. 
Vous trouverez dans ce numéro son programme de ‘Tvpe ahead”. qui permet le stockage et la mémo- 
risation des touches que vous enfoncez dans un ‘buffer: bel utilitaire peur les stakhanovistes du 
clavier. 


Nous sommes heureux æ'accuzillir (enfin) un journaliste non informaticien en la personne de Daniel 
Garric (la page ‘Futurs du Point). auteur des ‘Bossiers du Futur” Daniel à découvert le Macintosh 
en avant-première et il vous racente ‘son Macintosh 


Grâce à Gilles Chaygneaud. la disquette de Pom's est ‘parlante” pour la première fois. Vous pourrez. 
avec son programme et un simple magnétocassette. enregistrer de la parole ou des chansons dans 
l'Apple qui vous les restituera ensuite à la demande. Sonorisez enfin vos programmes Basic: vous 
‘blufferez' tout le monde Après quelques essais et réglages. vous parviendrez à d'excellents résultats. 
La disquette étant déjà pleine de programmes. nous n'avons pas pu. hélas. mettre divers exemples de 
sonorisation. 


Üne contribution inhabituelle pour Pom's en la personne d'Aliénor. présentée par À. Guillez et Y. 
Cherruault Cet article devrait intéresser particulièrement nos lecteurs scientifiques. et il démontre pour 
le moins que l'Apple trouve à s' employer dans les domaines les plus divers 

Dans un registre plus large. Guy Lapautre à testé pour vous le traitement de texte Gutenberg et 
Alexandre Avrane à fait de méme pour Magic Window 


Gilles Mauffrey vous propose un pregramme très simple à utiliser pour tracer des fonctions en haute- 
résolution et Gérard Rigaud présente une reutine complète de tri de tableaux. Roland dost vous 
donne pour sa part une longue liste de POKES en tous genres. Vous pourrez également rendre l Apple 
polyglotte avec le Pommesoft de Philippe Faure 


Enfin. la comparaison de programmes en assembleur ou en Applesoff vous sera grandement facilitée 
par les articles de Denis Sureau et Gérard Michel. qui reprend également une rubrique d'initiatien à 
l'assembleur. 


Nous aurons l'occasion de nous rencontrer deux fois éans un avenir proche. au Spécial-Sicob (palais 
du CNIT - La Défense). du 14 au 1% mai. où nous occuperons le stand 60 (niveau 3, :ene F). puis la 
semaine suivante à Micro-Expo. du 22 au 26 maï où nous aurons le stand N44 Vous pourrez venir 
nous ramasser à la petite cuillère le 26 à la cléture … A bientôt eonc ! 


Hervé Thiriez 
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RENDEZ VOTRE APPLE * ENCORE "PLUS" 


Cartes et accessoires additionnels compatibles APPLE II 


FLOPPY-DRIVE POUR APPLE 


CARTE LANGAGE 16 K RAM 


CARTE INTERFACE POUR & 
FLOPPY-DRIVE 


Programmation lecture/copie 
D chargement de programme directernent sur 2716 
M Entièrement équipée 


TABLE GRAPHIQUE 
KL: >, 


7 


JOY-STICK 


: 5 
e 
EN En 
2 
équ 2 trime 
pour recherche du f 


VENTILATEUR «FAN» 


(1890 
ROMO 


m6 


PROMO 169} 


496 F 


3 POUCES MDS «H 


- Capacité DD : 500 K acteis. 

- Nombre de pistes : 80 

- Densité : 100 TPI. 

- Dimension Fa x 40 x 150. 
Poids : 0,8k 


disquette rigide protégée 5" SF. 


t'unité 88 F 


CARTE D'EXTENSION : 
y 


double processeur 6808 st Z 80. 64 K 
BAM 


Entièrement équipée AA È. 
{sans ROM) 


7 slots d'extensions. Sencionne-sous CP/M 
CLAVIER ASC !1 


ren 


66 touches. Alphañumérique 
Maijusoules, minuscules. décimales 


ALIMENTATION 2 v. 54 
COFFRET pour carte de base 


el paué namériquie 


MONITEUR COULEUR 
RTC en module 
Simple à monter 


jans Radio-Plans n° 429 


MONITEURS 


ÈS 


5 vif 


* APPLE est une marque dépusèe et apgartient à APPLE COMPUTER SA. 


ITACHI» | 8 POUCES 


COMPL T AVEC 
CONTROLEUR 


moy M 


PROMOTION DISQUETTE POUR FLOPPY 


DO 48 TPI. l'unré 89 F 
per 50 pièces l'unité 19 F 


Sans contrôleur 


ni coffret 8190 F 


| par 10 pièces l'unité 88 F, 


CARTE 80 COLONNES 


CARTES D'INTERFAÇAGE 
Carte RVB (pour monteur 
Cane -SPEETCH- en anglais 
KIT GOLDEN RENE ; 


Carte d'unité 
centrale avec 6502 1 Z80 


Clavier ASC 11 


Cane horloge 

Carte vidéo MODEM 

Cate 

Carte de connection 
série RS 232 C 


3380 F 
980 F 
799 F 
698F 


lirmentation 220 V, 5 A 


Got 7 
Le 5797 F 
5199° 


heté séparément 


CARTE INTERFACE BUFFERISÉE 
IMPRIMANTE 


L'ENSEMBLE 


Pour teutes marq 

64 K RAM 

Livrée équipée en 16 K 
{extension jusqu'à 64 K) 


nie CENTRONIC'S - Bufter 


Chaque élément peut-Btre ac 


IMPRIMANTE SEIKOSHA 
NS COMPACTE 
GP 100 A 


EFFACEUR D'EPROM ç- 
EN KIT 


Lompiet avec notice 


ACER MICRO 


42, 


rue de Chabrol, 75010 Paris. 


Tél. 770.28.31. 





Saviez-vous que votre Apple peut 
dire quelques mots. sans aucune pro- 
thèse. pour peu que vous les lui ap- 
preniez ! 

Cela est possible grâce au système 
“Le Bavard”, qui se compose d'un 
petit module en langage machine et 
d'un programme en Applesoit ser- 
vant d'éditeur. 


Le module PARLE 


Le programme source a été écrit 
avec l'assembleur Dos Tool Kit 

Ce module permet de mettre sous 
forme numérique des mots préalable- 
ment enregistrés sur un magnéto- 
phone et de les stocker en mémoire. 
Üne deuxième sous-routine (voir le 
programme d'édition) permet de res- 
ttuer les sons à différentes vitesses. 
soit sur le haut-parleur de l'Apple, 
soit sur un amplificateur extérieur. 


La resttution n’est pas toujours très 
intelligible sur l'Apple. car ce dernier 
ne dispose que d'une seule voix 
pour sortir l’ensemble des fréquences 
simultanées. 


Le programme 
*BAVARD” 


Îl vous propose plusieurs fonctions : 


1 - Enregistrer un texte en mémoire 
à partir d’un  magnétophone 
connecté à l'Apple. Le magnéto- 
phone étant sur écoute. il suffit de 
taper une touche quand arrive le 
texte voulu, puis d'arrêter le stockage 
par la frappe d'une autre touche. 


2 - Ecouter le texte actuellement en 
mémoire. 


3 - Stocker sur disquette le texte qui 
se trouve en mémoire sous forme 
d'un fichier binaire dont vous devez 
préciser le nom. 


4 - Relire en mémoire un texte préa- 
lablement stocké sur disquette. 


Programme BAVARD 


5 - Choisir l'organe de sortie qui 
peut être le haut parleur de l'Apple 
ou un organe extérieur, en passant 
par la sortie magnétophone. 


6 - Editer le catalogue de la disquette 
pour sélectionner les fichiers à relire. 





Na. 


TEZ- MD 


7 - Changer la vitesse de restitution 
des sons. qui peut aller de O à 9. 0 
donnant la voix la plus aiguë et 9 la 
plus grave. 


8 - Visualisation des sons enregistrés 
en mémoire sous forme de courbes 
de fréquence. avec en abscisse 
l'adresse de l’octet et en ordonnée la 
valeur de la fréquence vocale que 
contient cet octet. Les silences cor- 
respondent à des zéros en haut de 


? 
22 VTAB 
0 REM PROGRAMME *LE BAVARD”* 
(APPLESOFT) 
1 PRINT °BLOADPARLE!. 0BJ" : 
2 PRINT “BLOADCOCORICO" 30 NORMAL 
3 FOR I = 2 TO 8 STEP 2: POKE 846 35 POKE 
52954 —- 1: POKE 0,0: POKE 1,64 40 


: CALL 819: NEXT 
4 POKE 846,254 — 6 


6 PRINT "BLOADBAUARD.MESS"* 


10 TEXT : HOME 


15  INVERSE : VTAB 2: PRINT “:"3; SPC<C 
12): HTAB 29: PRINT SPCC 12) 70 
VTAB 24: PRINT 


ses 
37);":" 


CE 
20 FOR 1 = 3 TO 23: UTAB 1: HTAB 
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"1°; SPC 


ji: PRINT * * ;: HTAB 40: 
1 


Le Bavard 


Gilles Chaygneaud-Dupuy 


l'écran et l'on va de l'aigu au grave 
en allant du haut vers le bas de 
l'écran. 

1! faut donner en paramètre l'adresse 
de départ de cette visualisation. 0 
étant le début de l'enregistrement. 


Utilisation dans vos pro- 
grammes 


Si vous voulez sonoriser vos pro- 
grammes Applesoft au moyen de 
textes enregistrés par ‘Le Bavard”, il 
faut charger par BLOAD le pro- 
gramme PARLEIL.OBJ et le fichier 
contenant le texte concerné. Ce der- 
nier peut être implanté n'importe où 
en mémoire. mais il faut en préciser 
l'adresse de départ par un POKE aux 
adresses O0 et 1 avant d'appeler le 
An par CALL 819. Par exem- 
ple : 


PRINT CHRS(4) “BLOAD 
PARLE1.0BJ” 

PRINT CHRS$(4)"BLOAD COCO- 
RICO.A$4000" 

POKE 0.0 : POKE 1,64 

CAËEL 819 


Pour faire varier la vitesse. il faut ef- 
fectuer un “POKE 846. 252-V" 
avant l'appel du module. V étant un 
chiffre compris entre O et 9. 


Pour gérer une table de mots à pro- 
noncer (afin de sonoriser le clavier. 
par exemple), il faut les séparer les 
uns des autres dans leur représenta- 
ton numérique par un octet conte- 
nant $FF. qui marque la fin de l'en- 
registrement. Indiquez ensuite 
l'adresse de début du mot voulu 
avant chaque appel au module 
PARELEI1.OPJ. E 


PRINT 


NEXT 
HTAB 15: PRINT "3 


: HTAB 15: PRINT ": L 


E BAVARD :":: HTAB 15: PRINT 


— 16368,0 
HTAB 6: UTAB 6: PRINT "1-ENREG 


ISTRER UN TEXTE" 
50 HTAB 6: VTAB 8: PRINT *2-ECOUT 


ER UN TEXTE® 


60 HTAB 6: VTAB 10: PRINT *3-SAUV 


ER UN TEXTE SUR DISQUE® 

HTAB 6: VTAB 12: PRINT “4-CHAR 

GER UN TEXTE EN MEMOIRE" 

80 HTAB 6: VTAB 14: PRINT "S-$ELE 
CTIONER LA SORTIE" 





TLC ITS, 


90 HTAB 6: UTAB 16: PRINT "é-AFFI 3617) *x 256 








CHER LE CATALOGUE" 4990 GOTO 10 
92 HTAB 6: UTAB 18: PRINT "7-CHAN 5000 HOME 
GER LA VITESSE D’ECOUTE" 5010 VTAB 10: PRINT “VOULEZ VOUS 
95 HTAB 6: UTAB 20: PRINT "8-VISU ECOUTEZ VOTRE TEXTE :" 
ALISER UN TEXTE * 5020 PRINT " A-SUR L'APPLE" 
97 HTAB 6: UTAB 22: PRINT "9-SORT 5030 PRINT “ B-SUR UN AMPLI EXTE 
IR DU PROGRAMME" RIEUR" 
99 IF N = O0 GOTO 2000 5040 PRINT :; INPUT "VOTRE CHOIX ? 
100 HTAB 35: VTAB 22: GET N "s:A$ 
110 ON N GOTO 1000,2000,3000 ,4000 5050 IF ÀA$ = "A" THEN POKE 851,4 
,5000,6000,7000,8000,9000 8: GOTO 10 
1000 HOME 5060 IF A$ = "B" THEN POKE 851,3 
1010 UTAB 10: PRINT "VOUS METTEZ 2: GOTO 10 
VOTRE MAGNETOPHONE EN ROUTE E 5070 GOTO 5000 
T VOUS APPUYEZ SUR RETURN POU 5990 GOTO 10 
R DEBUTER L'’ENREGISTR 6000 PRINT : PRINT CHR$ (4)"CATA 
EMENT" LOG" 
1015 PRINT “PUIS APPUYEZ DE NOUVE 6015 INPUT A$ 
AU SUR RETURN POUR L’ARR 6020 GOTO 10 
ETER." 7000 HOME 
1020 INPUT A$ 7005 VU = 252 - PEEK (846) 
1025 POKE 00,00: POKE 01,64 7010 VTAB 10: PRINT "LA VITESSE E 
1030 CALL 768 ST ACTUELLEMENT DE ":;U 
1040 FIN = PEEK (01) *x 256 + PEEK 7020 PRINT : PRINT " A COMBIEN 
(00) LA VOULEZ VOUS 7? "3: GET VU 
1050 LG = FIN - 16384 + 10 7030 POKE 846,252 - U 
1990 GOTO 10 7040 GOTO 2000 
2000 POKE 00,00: POKE 01,64 8000 HOME 
2010 CALL B19 8002 VTAB 22: INPUT "ADRESSE DES8U 
2020 N = 1: GOTO 10 T À VISUALISER ";A$ 
3000 HOME 8004 IF ÀA$ = ““ THEN TEXT : GOTO 
3010 VUTAB 10: INPUT "NOM DU FICHI 10 
ER À SAUVER ? ":;A$ 8005 HGR : HCOLOR= 3 
3020 PRINT "BSAVE":;A$:;",A$4000 ,L" 8006 À = VAL (A#)D 
5LG 8010 FOR I = O Te 259 
3990 GOTO 10 8020 Y = PEEK (16384 + À + 1) 
4000 HOME 8025 Y = Y / 255 * 160 
4005 UVTAB 10: INPUT °NOM DU TEXTE 8030 HPLOT 1,Y 
A CHARGER ? ";A$ 8040 NEXT 
4010 PRINT “BLOAD";A$;" ,A$4000" 8050 GOTO 8000 
4020 LG = PEEK (43616) + PEEK (4 9000 END 
Programme PARLE1.S 0318:C9 FF 19 CNP ASFF 
DOS TOOL KIT 0314:00 02 20 BNE 44 
0300 : | OR6 $300 PROGRAMME PARLE | 031C:A9 FE 21 LDA SSFE 
C030: 2 BRUIT EQU $C030 031E:91 00 22 STA (ADO), Y 
C060: 3 CASSET EQU $C040 0320:E6 00 23 INC A09 
0000: 4 ADD EAU 0 0322:00 02 24 BNE  ADD2 
C000: 5 CLAVIER EQU $C000 0324:E6 01 25 INC ADD! 
0006: é SON EQU $é 0326:2C 00 CO 26 A002 BIT CLAVIER 
0007: 7 FREQ EQU $7 0329:30 03 27 EI FIN 
0300 :AD 00 B DESUT LDY 30 032B:4C 00 03 2 JNP DEBUT 
0302:B4 07 ? STY FREQ 032E :A9 FF 29 FIN LDA #$FF 
0304:Eé 07 10 INC FREQ 0330:91 00 30 STA (ADD) ,Y 
0304:AD 40 C8 1! LDA CASSET 0332:60 31 RTS 
0309:85 Dé 12 STA SN 0333:B1 00 32 DIY LDA (ADD),Y 
030B:AD 40 CO 13 INF LDA CASSET 0335:85 04 33 STA SUN 
030E:45 04 14 EUR SN 0337:C9 FF 34 OP #$FF 
0310:30 04 15 BNI SUIUN 0339:F0 F7 35 BEQ FIN+4 
0312:E4 07 16 INC FREQ 033B:2C 00 CO 3% BIT CLAVIER 
0314:00 F5 17 ONE INF 033€ :30 F2 37 ON] FIN+4 
0316:A5 07 18 SUIVAN LDA FREQ 0340 :48 38 PHA 


MOTTE DES 13 
D 
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0341:EA 39 BOUCLE2 NOP 


0358:4C 33 03 57 
0352:A0 30 CO 53 


JP DIT 
LDA BRUIT 


Récapitulation 


0309- A0 00 84 07 Eé 07 A0 60 
030B- CO 85 06 AD 60 CO 45 06 
0310- 30 04 Eé 07 DO FS A5 07 
0318- C9 FF DO 02 A9 FE 91 00 
0320- Eé 00 D0 02 Eé 01 2C 00 
0328- C0 39 03 4C 00 03 A9 FF 
0330- 91 00 60 B1 00 85 06 C9? 
0338- FF F0 F7 2C 00 CO 30 F2 
0340- 48 EA EA EA EA FA FA FA 
034B- FA EA EA C6 06 DO F8 68 
0350- F0 03 AD 30 CO Eé 60 DO 


0342:EA 40 NOP 
0343:EA 4l NOP 
0344:EA 42 NOP 
0345:EA 43 NOP 
0346:EA 44 NOP 
0347:EA 45 NOP 
034B:EA 46 NOP 
0349:EA 47 NOP 

034: EA 48 NOP 
034B:C6 06 49 DEC SN 
034D:D0 F2 50 BE BOUCLE? 
034F :68 sl PLA 
0350:F0 03 52 BEQ SAUT 
0355:Eé 00 34 SAUT INC ADD 
0357:00 DA 55 BNE DIT 
0359:E6 01 56 INC ADD+1 


0358- DA Eë 01 4C 33 03 


Une astuce pour supprimer les REMs 


S'il est vrai que les REMs ralentissent 
et encombrent un programme. il ne 
l'est pas moins qu'elles contribuent 
souvent à sa bonne compréhension 
pour quiconque ne l'a pas écrit. 

La solution consiste donc à conserver 
deux versions dun même pro- 
gramme. avec et sans commentaires, 
ce qui justifie le besoin d'une procé- 
dure automatique de suppression des 
REMs à l'intérieur d'un programme 
en Applesoft. 


Celle que je vous propose repose sur 
un principe très simple : si l'on rem- 
place tous les codes REM {178) par 
00. le programme n'est plus exécuta- 
ble mais il se liste normalement sans 
les REMs fle 00 étant interprété 
comme une fin de ligne). Il suffit 
donc de stocker cette liste dans un 
fichier texte NEW-LST. et de faire 


"NEW" puis “EXEC NEW-LIST", 
pour récupérer en mémoire une Ver- 
sion exécutable du programme. sans 
REMs. qu'il ne reste qu à sauvegar- 
der. 


Le programme FAIT SANS-R EM listé 
ci-après construit un fichier SANS- 
RIM qui réalise les opérations sui- 
vantes : 


e Chargement en mémoire des 
lignes 60005 à 60096. Ce petit 
programme assure la transforma- 
tion des codes REM et la sauve- 
garde de la liste en résuitant dans 
le fichier NEW-LBT. 

e Exécution de l'ordre ‘RUN 
60005" pour effectuer le traite- 
ment ci-dessus. 

e Exécution de NEW” puis "EXEC 
NEW-LIST” pour récupérer en 


Guy d'Herbemont 


mémoire le programme original 
modifié. 
Une fois ce fichier construit. l'utilisa- 
tion de la procédure se réduit à . 


e LOAD ‘Programme à modifier" 
e EXEC SANS-REM 


Un LT à l'issue des opérations 
vous permettra de vérifier que les 
REMs ont bien disparu (les ”‘” qui 
précèdent éventuellement les instruc- 
tions REM sont en revanche conser- 
vés), et il ne vous reste plus qu'à 
sauver la version allégée de votre 
programme. 


À noter que les lignes 60005 à 
60096 ne doivent impérativement 
contenir aucune REM et que. bien 
sûr, le programme original ne doit 
comporter aucune ligne de numéro 
supérieur à 59999. = 





Programme FAIT SANS-REM 60020 IF BYT = 0 THEN GOSUB 6006 
0: ON DEB = 0 GOTO 60070: ON 
DEB < > O0 GOTO 460010 
1 REM PROGRAMME POUR CONSTITUER 60027 IF BYT < > 178 GOTO 60015 
2 REM LE FICHIER EXEC 60030 POKE X,0 
3 REM  "SANS-REM" 60040 GOSUB 60060: ON DEB = 0 GOTO 
4 REM === ————----ss—— 60070 
60050 GOTO 60010 
10 D$ = CHRS$S (13) + CHR$ (4) :NS = 60060 DEB = PEEK (DEB) + 256 x PEEK 
*SANS-REM" : PRINT D$"OPEN°N$D (DEB + 1): RETURN 
$"DELETE"N$D$S* OPEN"NSDS'"WRITE 60070 POKE 33,30 
"NS 60072 D$ = CHR$S (13) + CHRS (4): 
20 POKE 33,30: LIST 60005,: PRINT N$ = “NEW-LIST'": PRINT D$"OPE 
"RUN 60005": PRINT “NEW: PRINT N'N$SDS * DELETE"N$SDS* OPEN"N$SDS * 


*"EXEC NEW-LIST*: 


PRINT D$"”CLO 


SE": TEXT END 60080 
60005 DEB = 2049 60090 
60010 X = DEB + 3 60095 TEXT 
60015 X = X + 1:BYT = PEEK (X) 60096 END 
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WRITE"NS 
LIST ,59999 
PRINT D$"CLOSE" 


HOME 











Apprentissage de l’assembleur 


Gérard Michel 


Cet article constitue la reprise d’une 
série abordée dans les premiers nu- 
méros de Pom'’s. Si l’on en juge par 
votre courrier, vous étiez nombreux à 
souhaiter le retour d'une rubrique 
consacrée à l'apprentissage de l'as- 
sembleur, nous allons donc nous ef- 
forcer de vous donner satisfaction. 
conformément aux objectifs de cette 
revue. 


Rappelons tout d'abord. pour éviter 
toute confusion, que l'assembleur est 
déjà un langage ‘’évolué”. à ne pas 
confondre avec le langage machine. 
En matière de logiciel (et en simpli- 
fiant), la seule chose que votre Apple 
puisse comprendre sans l'aide du 
moindre compilateur ou interpréteur, 
c'est de l'hexadécimal. autrement dit 
des codes comme ceux que vous 
trouvez dans Pom's à la suite d'un 
programme en assembleur sous le 
titre ’récapitulation” (20 C1 FB … 
par exemple). 


Un assembleur est donc un langage 
constitué d'instructions plus facile- 
ment compréhensibles que lhexadé- 
cimal, théoriquement plus faciles éga- 
lement à mémoriser (pour les 
anglicistes du moins). doublé d'un 
“traducteur” qui transforme automa- 
tiquement ces instructions en code 
exécutable par la machine (cette 
opération est baptisée ‘’assem- 
blage”] C'est pourquoi l’on parle 
toujours de programme source (en 
langage assembleur) et de pro- 
gramme objet (en hexadécimal), ré- 
sultat de la traduction du premier. 
Cela signifie en particulier que vous 
ne pouvez pas programmer en as- 
sembleur si vüus ne possédez pas un 
logiciel ’éditeur/assembleur” tel que 
LISA, BIG MAC, DOS TOOL KIT 
ou autre, autant de noms qui doivent 
vous être maintenant familiers si vous 
êtes un fidèle lecteur de Pom's. Par 
contre, vous pouvez toujours écrire 
un programme par le biais du code 
hexadécimal, du moins dans un pre- 
mier temps, ne serait ce que pour 
vous faire une idée de ce que pour- 
rait vous apporter l'assembleur. C'est 
pourquoi nous vous donnerons dans 
cet article le code correspondant à 
chacune des instructions présentées; 
de plus. dans toute la mesure du 
possible, nous vous fournirons une 
version des opérations réalisées sous 
forme d'instructions en Applesoft, ce 
qui devrait aider à l’analyse et à la 
compréhension des mécanismes mis 
en oeuvre, que nous allons aborder 
sans plus attendre. 





Variables et registres 


Comme tous les langages. l'assem- 
bleur permet de travailler sur et avec 
des variables. En première approxi- 
mation. une variable est une case 
mémoire contenant un octet (deux 
chiffres hexadécimaux), définie par 
son adresse. Ainsi. $6 (soit 6 en déci- 
mal) ou $18 (soit 24 en décimal). 
par exemple. peuvent constituer 
l'adresse d'une variable dans laquelle 
le programme ira lire ou stocker des 
valeurs Rappelons que, par conven- 
tion, un nombre précédé de $ est 
toujours un nombre hexadécimal, 

{l est d'ailleurs important de distin- 
quer dès maintenant la variable (ou 
l'adresse) et son contenu. Lorsque 
lon écrit simplement $18. on fait ré- 
férence à la case mémoire dont 
l'adresse hexadécimale est $18 si 
l'on écrit #$18 par contre. on dési- 
gne la valeur $18 (ou 24 en déci- 
mal), De même. chaque fois qu'une 
instruction de l'assembleur porte sur 
la manipulation d'une variable, c’est 
son contenu qui s’en trouve affecté 
(en BASIC. A=B transfère également 
le contenu de B dans À mais ne 
remplace pas le À par un B). 

Notons en outre une différence de 
régime. sur laquelle nous reviendrons 
plus tard, entre les adresses dites 
‘page zéro” et les autres. Une 
adresse est en page zéro si elle est 
inférieure à 256 (de $0 à $FF en 
hexadécimal) et peut donc être re- 
présentée par un seul octet 





Affectation d’une valeur 


En mode immédiat, l'affectation 
d’une valeur à une variable peut se 
faire directement. Supposons par 
exemple que lon veuille mettre 
#$EF (soit 255 en décimal) à 
l'adresse $18. en partant du BASIC. 
le processus serait le suivant : 


CALL —151 (pour accéder au moni- 
teur) 

418: FF "RETURN" (l'étoile est le 
“prompt” du moniteur et est affichée 
par le système, le reste doit être tapé 
au clavier, sans oublier les ”:”). "RE- 
TURN" signifie tout simplement “Ap- 
puyer sur la touche RETURN" 


Ceci est équivalent à l'instruction Ap- 
plesoft : POKE 24,255 “RETURN”. 
Pour lire le contenu de l'adresse $18 
à partir du moniteur. tapez 

18 "RETURN" 

et la machine répondra : 

*0018-FF 

Vous auriez pu obtenir le même ré- 
sultat (255 en l'occurrence) avec les 


instructions 
PEEK(24). 


Les opérations de lecture/écriture du 
contenu d'une variable à partir d'un 
programme en assembleur supposent 
l'emploi des registres du micropro- 
cesseur car. si l'on peut faire 
"A=255" en BASIC, on ne peut pas 
faire directement “$18=#$FF" en 
assembleur (la définition directe de 
constantes est toutefois possible, mais 
ce n’est pas notre propos pour l’ins- 
tant). Un registre peut se définir 
comme une variable particulière. 
dont le nom reste toujours le même, 
que le microprocesseur utilise pour 
communiquer avec la mémoire de 
l'ordinateur. La “case mémoire" cor- 
respondant à un registre se trouve. 
en quelque sorte. dans le micropro- 
cesseur et le programmeur n'a jamais 
besoin de la définir lui-même 

Dans ce domaine. trois registres peu- 
vent nous être utiles : l’accumulateur 
(désigné plus simplement par A). le 
registre d'index X et le registre d'in- 
dex Y. Chacun de ces registres peut 
contenir un octet et prendre ainsi 
une valeur comprise entre O et 255 
($0 et $FF). 

Si nous nous acharnons toujours à 
mettre #$FF dans la case $18. trois 
séquences d'instructions sont ainsi 
disponibles 


1) LDA #$FF (A9 FF) 

STA 518 (85 18) 
ce qui signifie ‘charger accumulateur 
(LoaD A) avec la valeur #$FF" puis 
“stocker la valeur de À (STore A) 
dans la case d'adresse $18”. En Ap- 
plesoft. cela pourrait s'écnre: 
A=255POKE 24.A 
Les codes entre parenthèses ne sont 
pas de l’assembleur mais correspon- 
dent à ce qu'il faudrait taper au cla- 
vier pour rentrer ces instructions di- 
rectement en hexadécimal. Ainsi. A$ 
est le code de LDA lorsque celui-ci 
est suivi d'une valeur (FF) et 85 est 
le code de STA lorsque celui-ci est 
suivi dune adresse en page zéro 
(18). Si vous voulez par exemple im- 
planter ces instructions à partir de 
l'adresse $300 (768 en décimal), i 
vous faudra taper, à partir du moni- 
teur (derrière l'étoile de prompt”) : 
300: A9 FF 85 18 "RETURN" 
Si vous tapez ensuite : 
300L *RETURN” 
le système vous répondra : 
300-A9 FF LDA #$FF 
302-85 18 STA $18 
plus d'autres choses sans signification 
pour nous et qui dépendent de ce 
qui se trouve dans votre Apple à par- 
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tir de l'adresse $304 au moment où 
vous exécutez ce test. 

La commande ‘’L” (pour LIST), 
tapée derriére une adresse, demande 
en effet au moniteur d'essayer de dé- 
sassembler les codes hexadécimaux 
stockés à partir de cette adresse pour 
en faire 20 lignes d'instructions en 
langage assembleur. Bien sûr, le ré- 
sultat en est plus ou moins cohérent 
selon les codes rencontrés, mais 
n'oubliez pas cette aide que peut 
vous apporter le système car elle 
s'avère toujours utile pour le déchif- 
frage de routines dont on ne possède 
pas le programme source. 


2) LDX #$FF (A2 FF) 

STX 518 (86 18) 
Compte tenu de ce qui précède. la 
signification de ces deux instructions 
ne doit plus vous échapper (on passe 
par le registre X au lieu de passer par 
l'accumulateur) 


3) LDY #$FF {AO FF) 
STY $18 (84 18) 
Même chose avec le registre Y. 


Utilisation d'étiquettes 


Les assembleurs symboliques” (tou- 
jours LISA, BIG MAC ...). permettent 
de donner un nom, ou une étiquette, 
aux variables. Cela rend le pro- 
gramme source plus parlant et plus 
facile à analyser. LIGNE, par exem- 
ple. est d'une interprétation plus di- 
recte que $C6. En outre. l'affectation 
d'une étiquette simplifie considéra- 
blement la mise à jour dun pro- 
gramme source si l’on se trouve 
contraint, pour une raison ou pour 
une autre. de modifier l'adresse 
d'une variable. !! suffit alors de chan- 
ger la définition de l'étiquette, alors 
qu'il faudrait autrement rechercher 
tous les endroits où apparaît 
l'adresse concernée pour la modifier. 
D'un assembleur à l'autre. la défini- 
tion de ces étiquettes revêt une syn- 
taxe légèrement différente. Pour 
notre chère adresse $18, on pourrait 
ainsi avoir : 

ADR EPZ $18 {si on veut l'appeler 
ADR). ou 

ADR EQU $18. ou 

ADR = $18. 

C'est à la documentation de votre 
assembleur qu'il faut vous reporter 
pour connaître la bonne syntaxe. 
Notons simplement qu'une étiquette 
doit toujours être définie quelque 
part dans le programme source pour 
être utilisée dans une instruction sans 
provoquer d'erreur à l’assemblage {la 
solution la plus claire consiste à les 
mettre toutes en tête de programme. 
comme le font les auteurs des articles 
publiés dans Pom's). 


Pour en revenir à notre exemple. si 
lon suppose que l'on a baptisé la 
case $18 du nom ADR, on pourrait 
écrire en assembleur : 

LDA #$FF (A9 FF) 
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STA ADR (85 18) 

Notez que le nom symbolique n'est 
valable -que pour le programme 
source, le code hexadécimal reste 
toujours le même et fait référence à 
$18. 

En Applesoft, cela reviendrait à : 
ADR=24:A=255:POKE ADR.A 


Lecture d’une case mémoire 


Pour lire le contenu d'une case-mé- 
moire, les trois registres peuvent éga- 
lement être utilisés. d’où trois solu- 
tions disponibles : 

1) LDA $18 ou LDA ADR (A5 18) 
2) LDX $18 ou LDX ADR (A6 18) 

3) LDY $18 ou LDY ADR (A4 18) 


Ces trois instructions reviennent à 
charger respectivement l'Accumula- 
teur, le registre X ou le registre Y. 
avec le contenu de l'adresse $18 


Vous aurez sans doute remarqué que 
les codes des instructions LDA. LDX 
et LDY ne sont pas les mêmes que 
lorsqu'on leur donnait directement la 
valeur #$FF. Chaque type d'opéra- 
ton possède un code particulier: 
ainsi : 

1} Pour LDA : 


e LDA valeur = A9 valeur (exem- 
ple : LDA #$30 = A9 30) 

e LDA contenu d’une adresse en 
page zéro = AS adresse (exem- 
ple : LDA $24 = A5 24) 

e LDA contenu d'une adresse hors 
de la page zéro = AD octet bas 
de l'adresse/octet haut de 
l'adresse. 

Lorsqu'une adresse s'écrit sur deux 
octets, soit 4 chiffres hexadécimaux. 
l'octet bas correspond aux deux chif- 
fres de droite et l'octet haut aux 
deux chiffres de gauche. Par exem- 
ple : 

LDA $300 = AD 00 03 

LDA $FDED = AD ED FD 

C'est une sale manie, mais l'Apple 

prend toujours les adresses à l'envers 

de cette façon ! 


2) Pour LDX 


e LDX valeur = A2 valeur 

e LDX contenu d’une adresse page 
zéro = A6 adresse 

e LDX contenu d’une adresse quel- 
conque = AE octet bas/octet haut 
ÉTRe LDX $40F = AE 6F 
04 


3) Pour LDY 


e A0 valeur 
e A4 adresse 
e AC octet bas/octet haut 


Opérations sur les regis- 
tres 
Nous ne présenterons pour l'instant 


que celles qui nous seront utiles pour 
la suite de cet article. 


1) INX (code E8) : incrémente X de 


1 (équivalent à X=X+1). 

2) DEX (code CA): décrémente X 
de 1 (équivalent à X=X—1}. 

‘ NY (code C8) : incrémente Y de 
4) DEY (code 88) : décrémente YŸ de 
1 

5) TAX (code AA): transfère le 
contenu de À dans X. sans modifier 
celui de A (équivalent à X=A). 

6) TAY (code AB): transfère le 
contenu de À dans Y (Y=A). 

7) TXA (code 8A): transfère le 
contenu de X dans À (A=X). 

8) TYA (code 98): transfère le 
contenu de Ÿ dans À (A=Y). 


Egal à zéro ou différent 
de zéro ? 


Parmi les instructions de test et de 
branchement disponibles en assem- 
bleur. deux nous seront également 
utiles dans un futur immédiat . 


1) BEQ (code F0) 


En Applesoft. l'instruction BEQ serait 
équivalente à IF ‘dernier résultat "=0 
THEN branchement. 

Si le dernier résultat n'est pas nul. on 
passe simplement à l'instruction sui- 
vante. 

Compte tenu des instructions que 
nous avons déjà examinées, nous 
pouvons dire à ce stade que le ‘’der- 
nier résultat” en question correspond 
à la valeur du dernier registre mani- 
pulé. Par exemple : 


e Après LDA $18. BEQ provoquera 
un branchement si $18. et donc 
l'accumulateur, contient O. 

e Après DEY. BEQ provoquera un 
branchement si Ÿ tombe à 0. 

e Après TXA. BEQ provoquera un 
branchement si X. et donc A, 
contient O 


L'endroit vers lequel s'effectue le 
branchement ne pose pas de pro- 
blème si l'on écrit un programme 
source en assembleur symbolique. 
Comme pour les variables. il est en 
effet possible de mettre des étiquettes 
en regard des instructons: le bran- 
chement se fait alors par référence à 
cette étiquette (voir plus bas). Si l’on 
travaille directement au niveau de 
l’hexadécimal, il faut alors savoir que 
BEQ ne fait pas de branchement sur 
une adresse, mais en fonction d’un 
déplacement vers le haut ou vers le 
bas. La valeur de ce déplacement 
doit suivre le code FO Voici quel- 
ques exemples . 

e FO 00 le branchement se fait à 


l’octet qui suit O0 {si le FO se 
trouve à l'adresse $300, BEQ 


branchera à l'adresse $302 si le 
dernier résultat est null. Une telle 
instruction serait donc inutile puis- 
que l'on arriverait à la même 
adresse quel que soit le résultat du 
test. 
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e FO 01: branchement à ‘adresse 
de FO + 3” 

e FO 02: branchement à ‘adresse 
de FO + 4” 

e FO FF: branchement à ‘adresse 
de FO + 1” (ce qui provoquera 
une erreur puisque l’on retombe 
sur FF, qui n’est pas le code d’une 
instruction). La valeur $FF corres- 
pond en fait à —1 en décimal: 
lorsqu'il “lit” FO, le microproces- 
seur pointe” aussitôt vers l'octet 
suivant (FF en l'occurrence), de 
même lorsqu'il lit le FF qui recule 
le pointeur de 1 et le ramène 
donc sur FF 

e FO FE : branchement sur l’adresse 
de FO (boucle infinie !) 

e FO FD: branchement à ‘adresse 
de FO -— 1” 

e FO FC: branchement à ”’adresse 
de FO — 2” 


De manière générale, si À est 
l'adresse à laquelle se trouve le code 
FO, un déplacement compris entre 
$0 et $7F branchera sur une adresse 
comprise entre A+$2 et A+$81 (+2 
à +129 en décimal), tandis qu'un 
déplacement compris entre $FD et 
$80 branchera sur une adresse 
comprise entre A—$1 et A-$7C (—1 
à —124 en décimal). Cela signifie en 
particulier que, à partir d'une adresse 
À. on ne peut effectuer de saut "en 
avant” que jusqu'à A+129, et de 
saut ‘en arrière” que jusqu’à 
A-—124,. 

IE est clair que tout ceci n’est pas sim- 
ple à manipuler. et l'assembleur sum- 
bolique est vraiment d’un grand se- 
cours pour tout ce qui concerne les 
branchements. car il calcule le dépla- 
cement à votre place. 


2) BNE (code DO) 


En Applesoft, BNE pourrait se tra- 
duire par IF ‘dernier résultat” <>0 
THEN branchement (vous deviez 
vous en douter un peu...) 

Les principes sont identiques à ceux 
qui régissent l'instruction BEQ en ce 
qui concerne le. dernier résultat” et 
les branchements. 


Les modes d’adressage 
Adressage direct indexé 


Nous avons déjà rencontré la techni- 
que d'adressage la plus simple, que 
lon peut baptiser ”adressage ab- 
solu”, qui consiste à donner directe- 
ment l'adresse de chaque variable 
(ainsi dans STA $18 ou LDA $06). 


Supposons maintenant que l’on 
veuille mettre la valeur O dans les 
adresses $8001 à $800A. Une solu- 
tion consisterait à faire successive- 
ment référence aux adresses $8001, 
$8002, 58003. Ce n'est certaine- 
ment pas la plus économique en 
place-mémoire, ni en effort muscu- 
laire au clavier. 
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ll est heureusement possible d'utiliser 
les registres X et Ÿ pour effectuer ce 
travail à moindre coût (ce qui vous 
expliquera par la même occasion leur 
nom de registre index”) Les ins- 
tructions suivantes réalisent l’opéra- 
tion : 

LDA #0 (A9 00) 

LDX #$0A (A2 OA) 

STOCKE STA $8000X (9D 00 80) 
DEX (CA) 

BNE STOCKE (DO FA) 

En Applesoft, cela pourrait s’écrire : 
10 A=0 

20 X=10 

30 ST=32768 (soit $8000) 

40 POKE ST+X.A 

50 X=X-1 

60 IF X<>0 THEN 40 

La valeur de X est ajoutée à 
l'adresse de base ($8000, donnée ici 
en clair, mais qui peut être égale- 
ment une adresse symbolique 
comme ADR avec STA ADR.X) pour 
donner l'adresse définitive où est sto- 
ckée la valeur 0. X passe ainsi de 10 
à O (instruction DEX), tant qu'il est 
différent de O0. on “remonte” à l'ins- 
truction de stockage à l'adresse cal- 
culée (indexée), lorsqu'il est nul. le 
branchement ne se fait plus et on 


passe alors à l'instruction suivant 
BNE STOCKE 


Le même résultat serait obtenu avec 
le registre Y : 


LDA #0 (A9 00) 

LDY #$0A (AO OA) 

STOCKE STA $8000,Y (99 00 80) 
DEY (88) 

BNE STOCKE (DO FA) 


L'instruction LDA, comme STA, peut 
utiliser l'adressage indexé par X ou 
Y. Les différents codes hexadéci- 
maux sont listés ci-dessous : 


1) Pour LDA (ADS désigne une 

adresse symbolique) : 

e LDA adresse quelconque,X = BD 
octet bas/octet haut = LDA 
$aaaa,X ou LDA ADS,X 

e LDA adresse quelconque.Y = B9 
octet bas/octet haut — LDA 
$aaaa.Ÿ ou LDA ADS.Y 

e LDA adresse page zéro,X = B5 
adresse = LDA $aa.X ou LDA 
ADS.X 

e Pas d’adressage indexé par Ÿ en 
page zéro. 


2) Pour STA. 

e STA adresse, X — 9D  octet 
bas/octet haut = STA $aaaa,X ou 
STA ADS. X 

e STA adresse Ÿ — 99  octet 


bas/octet haut = STA $aaaa,Ÿ ou 
STA ADS. Y 

e STA adresse page zéro,X = 95 
adresse — STA $aaX ou STA 
ADS,X 


Chacun des registres permet d’adres- 
ser une zone de mémoire de 256 
octets, d’une adresse de base $A jus- 


qu'à $A+$FF. Il faut bien se rappe- 
ler que, quel que soit le tupe d'in- 
dexation, l’adressage ne peut porter 
que sur 256 octets à partir d'une 
même adresse de base; si Pon doit 
travailler sur une zone plus grande, il 
devient nécessaire de manipuler éga- 
lement cette adresse. De manière gé- 
nérale. l'adresse variera selon un pas 
de 256 octets, par exemple : $8000 
(on peut aller de $8000 à $80FF 
avec un index), $8100 (de $8100 à 
$81FF avec un index). Vous aurez 
certainement noté que cette Variation 
se traduit par une incrémentation de 
1 en 1 de l'octet haut de l'adresse. 


Adressage indirect indexé 


Il nous reste à voir une technique 
d'adressage plus complexe mais qui 
n'est pas moins utilisée pour autant. 
au contraire Elle fait appel à l'in- 
dexation par X ou Ÿ, mais elle est 
dite également indirecte” car 
l'adresse définitive est calculée à par- 
tir de la valeur contenue dans 
l'adresse de base et non à partir de 
l'adresse de base elle-même. Cette 
dernière (baptisons la AD) doit obli- 
gatoirement se trouver en page zéro 
et le système prendra l'adresse 
contenue selon le principe: valeur 
contenue dans AD=octet bas de 
l'adresse et valeur contenue dans 
AD+1=octet haut de l'adresse. 


Adressage pré-indexé par X 


Le mécanisme en est le suivant 


e soit AD l'adresse de base en page 
0. 

e le système lui ajoute la valeur de 
X, 

e le contenu de AD+X et AD+X+1 
donne une adresse AO sur laquelle 
portera le travail effectif de lec- 
ture/écriture 


En Applesoft, cela reviendrait à une 
suite d'instructions du type : AD=6: 
X=2 : AX=AD +X : AO = 
PEEK(AX)+2564PEEK(AX+1) : 
POKE A0,0 (si l’on veut, par exem- 
ple. mettre O0 dans AO). 

Du fait que les adresses contenues 
comportent toujours deux octets. 
même si elles sont inférieures à 256 
(l'octet de poids fort vaut alors O0), X 
ne doit prendre que des valeurs mul- 
tiples de 2 pour que l'adressage 
donne un résultat cohérent (0 pour 
atteindre la première adresse, 2 pour 
la seconde...). 


Cette technique d'adressage permet 
de gérer des tables de pointeurs” 
stockées en page zéro à partir d’une 
adresse donnée (chaque adresse 
contenue pointe vers une adresse dé- 
finitive à manipuler par le pro- 
gramme). Elle autorise également 
l'usage d'adresses calculées par le 
programme (ou par l'Apple lui- 
même) et que vous ne connaissez 
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pas encore au moment où vous 
l'écrivez . il vous suffit de choisir une 
adresse de base en page zéro. à par- 
tir de laquelle seront stockés les ré- 
sultats des calculs. et d'écrire votre 
programme en faisant uniquement 
référence à cette adresse. 

Les instructions LDA et STA peuvent 
faire appel à cette technique. avec la 
syntaxe suivante : 


e LDA (ADR.X) = Al adresse page 
zéro = LDA ($aa.X) 

e STA (ADR.X) = 81 adresse page 
zéro = STA ($aa.X) 


Adressage post-indexé par 
4 


Les principes sont identiques en ce 
qui concerne l'adresse base en page 
zéro et l'adresse contenue. mais le 
fonctionnement de l'indexation est 
radicalement différent : 


e soit AD l'adresse de base. 

e elle contient une adresse A@. 

e le systéme ajoute la valeur de Y à 
AO pour obtenir l'adresse défini- 
tive. 

En Applesoft : AD=6: 

AO=PEEK{(AD)+256«PEEK(AD+ 1) : 

Y=1- POKE A0+Y.0 (par exemple). 

L'indexation s'applique donc 

l'adresse contenue et non plus 

l'adresse de base. 


à 
à 


Ce mode d'adressage est très utilisé 
par le système lui-mème et. par suite. 
il le sera souvent aussi par le pro- 
grammeur. Le but principal est tou- 
jeurs de pouvoir écrire un pro- 
gramme en gérant des adresses que 
l'on ne connaît pas encore ou qui 
peuvent se modifier, en cours d'exé- 
cution ou selon le contexte. 
L'adresse contenue doit fournir le 
début d'une zone de mémoire sur la- 
quelle on veut travailler (chaque va- 
riable de la zone pouvant être tou- 
chée au moyen de l'index Y}). Sur 
l'Apple. ce type d'adresse est particu- 
lièrement répandu : adresse de la fin 
du” programme BASIC. adresse 
d'une ligne d'écran texte ou graphi- 
que. adresse de la zone des chaînes 
de caractères. adresse d'une ligne de 
programme BASIC... 


Le ’GOSUB” de l’assem- 
bleur 


Quelques mots seulement. car le 
principe est très proche de celui uti- 
lisé en Applesoft L'équivalent de 
GOSUB est l'instruction JSR (code 
20) En assembleur, on peut faire 
JSR $FBCI (par exemple) ou JSR 
ETIQUETTE (sous réserve bien sûr 
que ETIQUETTE soit défini quelque 
part dans le programme). En hexa- 
décimal. l'adresse où commence la 
sous-routine doit suivre le code 20 
dans l'ordre habituel octet bas/actet 
haut (20 C1 FB pour JSR $FBC1). 
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L'instruction RTS (code 60). quant à 
elle. joue exactement le même rôle 
que RETURN. 


Récapitulation illustrée 


Le petit programme ci-dessous n'em- 
ploie que des instructions examinées 
plus haut. à l’except'on de ORG. En 
fait, il ne s'agit pas vraiment d'une 
instruction mais de ce que l'on ap- 
pelle. en langage bien barbare. un 
“pseudo-opcode” ou une “directive”, 
cest à dire une commande propre à 
l'assembleur utilisé (LISA 1.5 en l'oc- 
currence). mais qui ne relève pas du 
langage machine et ne fera pas partie 
du programme objet résultant de 
l'assemblage. Les commandes de dé- 
finition d'étiquettes que nous avons 
déjà évoquées (EQU. EPZ..} sont 
aussi des directives. 

En l'espèce. ORG indique à l'assem- 
bleur à païtir de quelle adresse il doit 
réaliser l'assemblage et calculer les 
sauts éventuels (un JSR à l'intérieur 
du programme par exemple. mais 
pas les branchements par BEQ ou 
BNE qui. rappelons-le. se font en va- 
leur relative, en fonction d'un dépla- 
cement et non directement sur une 
adresse fixe). 


Le programme fait peu de choses. il 
exécute un HOME. vous demande 
un caractère au clavier. trace un 
cadre autour de l'écran avec ce ca- 
ractère. positionne ensuite le curseur 
au centre de l'écran pour vous de- 
mander un autre caractère avec le- 
quel il trace un nouveau cadre sur le 
précédent et ainsi de suite (on ne 
peut en sortir que par RESET) Nous 
allons l'analyser en détail. 


Ligne 2: $FC58 est l'adresse où 
commence la routine du moniteur 
qui est exécutée lorsque vous faites 
un HOME en Applesoft. JSR $FC58 
est donc équivalent à HOME {la rou- 
tine se termine évidemment par 
RTS) 

Ligne 3: JSR $FDOC est équivalent 
à GET. La routine de saisie d'un ca- 
ractère au clavier commence en effet 
à l'adresse $FDOC: elle stocke le ca- 
ractère (le code-écran du caractère 
en fait) dans l'accumulateur. 

Ligne 4: on stocke le caractère à 
l'adresse $6. qui n'est pas utilisée par 
le système et reste à la disposition du 
programmeur. On donne à cette ins- 
truction l'étiquette B4 afin de pouvoir 
y effectuer un branchement ultérieu- 
rement. 

Ligne 5: on charge l'accumulateur 
avec le numéro de là première ligne 
de l'écran soit O. 

Ligne 6 : la routine du moniteur qui 
commence en  $FBCI calcule 
l'adresse de base d'une ligne de 
l'écran dont on donne le numéro par 
A. Sur une ligne, les caractères sont 
stockés de  ’adresse-base” à 
’adresse-base + $27° (de O à 38 en 


décimal, ce qui fait bien 40 caractè- 
res par ligne}. La routine range cette 
adresse dans les mémoires $28 et 


$29. 


Ligne 7 : Y=#$26 ou encore Y=38 
en décimal, ce qui correspond à 
l'avant-dernier caractère de la ligne. 
Ligne 8 : on remet le caractère entré 
au clavier dans A. 

Ligne 9: on le stocke à l'adresse 
’adresse-base de la ligne + 38”: il 
est ainsi affiché à l'écran (avant-der- 
nier caractère de la première ligne). 
Ligne 10 : Y=Y-—1 

Ligne 11 : si Ÿ est différent de O. on 
retourne à BO, afin d'afficher tou- 
jours le caractère sur la première 
ligne, de la droite vers la gauche. 
L’assembleur calculera lui-même le 
déplacement qui permettra de re- 
monter à l'adresse où commencera 
l'instruction qui suit B@. ce dont on 
peut lui être reconnaissant. 

Ligne 12 : Y=0 (le premier caractère 
de la ligne n'est pas encore affiché). 
17 en hexadécimal vaut 23 en déci- 
mal : c'est le numéro de la dernière 
ligne de l'écran. 

Ligne 13 : calcul de l’adresse-base de 
la dernière ligne. 

Lignes 14 à 18: on fait pour la der- 
nière ligne comme pour la première. 
Ligne 19: Y=0 pour traiter la pre- 
mière colonne de l'écran. 

Ligne 20: on met $18 dans X au 
lieu de $17 afin de pouvoir placer le 
DEX avant lopération d'affichage. 
Ainsi, le test sur la valeur de X (0 ou 
non) se fera après le traitement de la 
ligne O et non avant. 

Ligne 22 : À = numéro de la ligne. 
Lignes 23 à 25 : instructions réalisant 
l'affichage en première colonne {Y 
vaut toujours O). 

Ligne 26: TXA a pour but de don- 
ner au ‘dernier résultat” testé par 
BNE !a valeur de X, qui est bien 
celle qui nous intéresse ici. 

Ligne 27 : on passe au caractère sui- 
vant (au-dessus) dans la même co- 
lonne, jusqu'à ce que la ligne O ait 
été traitée. - 
Ligne 28: TYA pour donner au 
dernier résultat” la valeur de Y. En 
fait, on veut savoir si la colonne que 
l'on vient de traiter est la première 
(0) ou la dernière ($27 = 39) Si 
c'est O, on refait le travail avec $27 
(lignes 30 et 31 qui renvoie à la ligne 
20}. sinon. le cadre est tenniné et on 
se déplace en B3. 

Lignes 32 à 34: la mémoire $25 
contient la position verticale du cur- 
seur: on la met à $C (12) et on fait 
un JSR à la routine qui exécute le 
VTAB {$FC22). Ceci est donc équi- 
valent à VTAR 12. 

Lignes 35 et 36 : $24 contient la po- 
sition horizontale du curseur: on y 
met $14, ce qui équivaut à HTAB 
20. 

Ligne 37: demande d'un caractère 
au clavier. 
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Lignes 38 à 39 aucun caractère n'a 
® pour code-écran en mode normal 
et le test BNE réalisera donc systé- 
matiquement le branchement en B4 
le programme boucle ! 


Si vous voulez rentrer ce programme 
directement en hexadécimal. utilisez 
la récapitulation qui vous est donnée 
de la façon suivante 


Entrez en mode moniteur par 
CALL-151. puis tapez : 

300: 20 58 .… 06 RETURN 

368: A9 00. AS RETURN 

et ainsi de suite jusqu au BA final. 
Retour au BASIC par 3D0G RE- 
TURN ou CTRL-C. 


LISTE D'ASSEMBL AGE 


Vous pouvez, si vous le désirez. sau- 
ver la routine par  BSAVE 
nomA$3068. L$4C (où $300 et $4C 
désignent respectivement l'adresse de 
début et la longueur du code à sau- 
vegarder). 

Pour l'exécuter. tapez CALL 768 
RETURN. 


Nous vous donnons également un 
petit programme en Applesoft qui fait 
le même travail que notre routine en 
assembleur. Essayez-le également et 
vous constaterez la chose suivante . 
on a le temps de voir le cadre se 
dessiner alors que. en langage ma- 
chine. tout semble “instantané” (un 
cadre en remplace un autre sans que 


vous puissiez discerner une phase in- 
termédiaire). Ceci confirme ‘de visu” 
que le langage machine permet de 
réaliser des traitements plus rapides 
que le BASIC et c'est bien la moin- 
dre des choses. 


Mais. et la taile du programme. 
direz-vous ! I] ne faut pas se fier aux 
apparences: le programme source 
en assembleur peut vous paraître 
long (surtout si vous le tapez effecti- 
vement, sans être un spécialiste de la 
dactylographie), mais le code-objet 
noccupe que 76 octets. Le “petit” 
programme Applesoft en prend pour 
sa part 112 . Alors. rendez-vous au 
prochain article ! = 


RECAPITULATION 











LISA 1.5 
0300- 20 58 FC 20 0C FR «5 04 
0308- 49 00 20 Ci FB AG 26 ÀS 
0300 1 ORG $300 0310- 06 91 28 88 DO FB À9 17 
0300 2058FC 2 JSR $FC58 0318- 20 C1 FB A0 26 ÀS5 06 91 
0303 200CFD 3 JSR $FD0OC 0320- 28 88 DO FB 40 00 À2 18 
0306 8506 4 B4 STA $6 0328- CA 84 20 Ci FB ÀS5 06 91 
0308 A900 5 LDA #0 0330- 28 8A DO F4 98 DO 04 À0 
0304 20CIFB 6 JSR $FBC1 0338- 27 DO EB À9 OC 85 25 20 
030D AO26 ? LDY #$26 0340- 22 FC À9 14 85 24 20 OC 
030F AS0é 8 LDA $é 0348- FD À DO Ba 
0311 9128 9 BG STA (#28) ,Y 
0313 88 10 DEY = 
0314 DOFB 11 BNE B0 10 HOME : POKE 34,24 
DIS SAT Fe A ES {5 GET Z$: UTAB 1: HTAB 1: FOR I = 
0318 20CIFB 13 JSR $FBCI 1 TO 40: PRINT Z$;: NEXT : UTAB 
031B A026 14 LDY #826 24: HTAS 1: FOR 1 = 1 TO 40: PRINT 
031D ÀA506 15 LDA $6 2$;: NEXT 
O3iF 9128 16 81 STA ($28),Y 20 FOR 1 = 2 TG 23: VTAB 1: HTAB 
0321 88 17 DEY 1: PRINT Z2$3;: HTAB 40: PRINT 
0322 DOF8 18 BNE B1 Z$;: NEXT : LVTAB 12: HTAB 20: 
0324 A000 19 LDY #0 GOTO 15 
0326 A218 20 820 LDX ##18 
0328 CA 21 B2 DEX 
0329 8A 22 TXA 
0324 20C1FB 23 JSR $FBCI Un bug en virgule flottante 
032D À506 24 LDA $6 \ 3 
032F 9128 25 STA (#28) ,Y Christophe Chaumet nous a signalé ce bug. publié dans 
0331 8A 26 TXA ; ACM SIGNUM Newsletter en avril 83. Les multiplications 
et divisions en virgule fiottante de l'Apple sont sujettes à 
0332 DOF4 27 BNE B2 erreur dans certains cas. Ainsi, la mantisse contient 4 
0334 98 28 TYA octets (32 bits): si. pour un nombre donné. les deux octets 
0335 DO004 29 BNE B3 centraux de cette mantisse sont nuls et l'octet final non 
0337 A027 30 LOY 4827 nul, il peut y avoir une erreur dans l'octet final pour les 
0339 DOEB 31 BNE 820 multiplications et divisions faites avec ce nombre 
0338 A90OC 32 B3 LDA #$C Exemple: | 
033D 8525 33 STA $25 dE EE 
= 2% 
dan 7 ee FES De On obtient en fait W = 0.5+2°(-26) comme résultat. 
0344 8524 36 STA $24 Par contre, si Z = 0.5 + 2°(-9) + 2°(-25), on trouve 
0346 200CFD 37 JSR $FDOC bien la même valeur pour Z et W, une fois que W a été 
0349 A 38 TAX défini par W = 2x(7/2) 
034Â DOBA 39 SNE 84 Apple a été informé de l'erreur il v a trois ans: hélas, ce 
problème est resté avec l'Apple //e. 
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L'interpréteur Applesoft est à l'étroit 
dans ses 10K de ROM et certaines 
de ses possibilités ne peuvent être 
exploitées que par l'emploi de 
POKES à certaines adresses mé- 
moire. D'autre part. il peut s'avérer 
nécessaire de tromper l'interpréteur 
qui est parfois un peu trop strict. 
Tout programmeur connaît les 
POKESs courants permettant de défi- 
nir les limites de la fenêtre d'écran. 
de passer aux modes graphiques. 
D'autres sont moins connus. Cette 
liste rassemble tous ceux que j'ai pu 
trouver dans la littérature consacrée à 
l'Apple. Elle n'est certainement pas 
exhaustive et pourra être complétée 
par la suite. 


Remarque : lorsqu'il s'agit de POKEr 
des valeurs sur 2 octets, X étant l'oc- 
tet de poids faible, X+1 l'octet de 
poids fort. l'instruction suivante est 
utilisée : 

POKE X+1.VAL/256 : POKE XVAL 
—256*PEEK{X+1) 

au lieu de : 


VR = VAL:256 : POKE X.VAL-256* 
V%: POKE X+1LV% 


Page zéro 


e POKE 10.76: POKE 12.AD/256 : 

POKE 11,AD-PEEK(12}:256 
hitialise la fonction USR. Un appel à 
USR provoquera un saut à un sous- 
programme machine commençant à 
l'adresse AD. 


e POKE 32,X 

Fixe la marge gauche de la fenêtre 
de texte (0<= X <= 39), 

e POKE 33,X 

Fixe la largeur de la fenêtre de texte 
(0<= X <= 39-PEEK(32) 

e POKE 33,33 

Affiche les instructions Applesoft sans 


mettre de marge. Nécessaire pour les 
corrections d'instructions. 


e POKE 33.28 

Pennet un cadrage facile des REMar- 
ques. 

e POKE 34,Y 

Fixe le haut de la fenêtre de texte 
(0O<= Y <= 23). 

e POKE 35.Y 

Fixe le bas de la fenêtre de texte 
(PEEK(34)<= Y <= 23) 

e POKE 36,X 

Fixe la position horizontale du cur- 


seur. À utiliser en remplacement de 
HTAB pour sortie sur imprimante si 
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Des POKESs à gogo 


l'impression se fait sur plus de 40 co- 
lonnes. 


e POKE 37,Y 
Fixe la position verticale du curseur 
(O<=Y<=23); 


e POKE 48.C 

Sélectionne la couleur du tracé basse 
résolution {mode GR). OÜ=noir, 
1=magenta. 2=bleu foncé, 3=pour- 
pre, 4=vert foncé, 5=gris. 6=bleu, 


7=bleu clair, 8=brun, 9=orange. 
10= gris, 11=rose, 12=vert, 
13=jaune, 14=incolore. 15=blanc. 
e POKE 49X 

Sélectionne le MODE du moniteur. 

e POKE 50.63 


Sélectionne le mode d'affichage IN- 
VERSE. 


e POKE 50.127 
Sélectionne le mode d'affichage cli- 
gnotant (mode FLASHI). 


e POKE 50.255 
Retour au mode d'affichage normal. 


e POKE 51.128 

A placer en mode immédiat avant un 
ordre CONT, GOTO, GOSUB. sur la 
même ligne, lorsque la portion de 
programme à exécuter contient un 
ordre OPEN, READ, WRITE, AP- 
PEND ou POSITION. On évite ainsi 
le message NOT DIRECT COM- 
MAND. 


e POKE 55AD/256: POKE 54AD 
—PEEK(55)#256 

Changement de l'adresse du sous- 

programme de sortie de caractères. 

(Normalement $9EBD avec le DOS). 


e POKE 57.AD/256: POKE 56,AD 
—PEEK(57}#256 

Changement de l'adresse du sous- 

programme d'entrée de caractères. 

(Normalement $9E81 avec le DOS). 


e POKE 58.A1 POKE 59.A2: 
POKE 69,A3. POKE 70.A4: 
POKE 71.A5 


Utilisation des adresses de sauve- 
garde de PC et des registres A.X.Y 
pour l’appel de sous-programmes du 
moniteur. En voici un exemple : 


Conversion décimal en 
hexadécimal 

10 INPUT ‘"’DEC="”D: POKE 
7:,D/256: POKE 70,B - PEEK 
{71}*256: POKE 59.249: POKE 
58,64. POKE 49.0 : PRINT 


"HEX$=": : CALL-327 


La valeur de D est POKEe dans les 
registres Ÿ et X par l'intermédiaire 
des adresses de sauvegarde de ces 


Roland Jost 


registres ($47 $46) L'adresse du 
sous-programme d'affichage 
(PRNTYX - $F940) est POKEe dans 
les adresses de sauvegarde du PC 
($3A, $3B). On met à zéro le MODE 
{$31). Le CALL-327 exécute un 
sous-programme restaurant les regis- 
tres (FFEB9). 


e POKE 60-67,X 
Ces huit adresses permettent de 
transmettre des paramètres à certai- 


nes routines du moniteur: MOVE. 
VERIFY.. 


Exemple : déplacer de D1 à Al une 
zone mémoire commençant à 
l'adresse D1 et se terminant en B2 : 


POKE 61.B1/256 : POKE 60,B1- 
PEEK (61)*256 : POKE 63,B2/256 : 
POKE 62,D2-PEEK (63)x 256: 
POKE 67,A1/256 : POKE 66.A1 — 
PEEK (67)x256 : CALL —-468 


Le CALL-468 exécute la 
commande MOVE ($FE2C) Un 
CALL-548 (VERIFY $FE36) per- 
mettrait la comparaison de 2 zones 
mémoires. 


e POKE 72,0 

Met à zéro le registre d'état. Utilisé 
par exemple dans la routine de 
SHLAM {voir plus loin). 


e POKE 82,213 

À faire avant de sauver un pro- 
gramme sur cassette. Le programme 
s'exécutera automatiquement après 
un LOAD et le RUN n'est plus né- 
cessaire. 


e POKE 103.1 

104.AD/256 : POKE AD.0 
Fixe à AD le début d'un programme 
Applesoft 


e POKE 106X / 256 : POKE 105.X 
PEEK (106) *« 256 

Fixe ia valeur de LOMEM à la valeur 

décimale X. Identique à LOMEM:X. 


e POKE 116.X ’ 256 : POKE 115.X 
PEEK (116) + 256 

Fixe la valeur de HIMEM à la valeur 

décimale X Identique à HIMEM:X. 


e POKE 118.0 

Permet d'exécuter des instructions 
telles que INPUT. GET. en mode 
immédiat L'adresse 118 ($76 - 
CURLIN) contient normalement $FF 
en mode direct et le numéro de ligne 
BASIC en mode pregramme. Exem- 
ple : POKE 118.0:INPUT ‘ “R$ 


e POKE 118.0 : POKE 436990 
Permet un INPUT du clavier dans un 
fichier EXEC. Après l'INPUT. faire 


POKE 








un POKE 436991 (pour 48kK) 
Toutes les instructions doivent être 
dans une même ligne. 


e POKE 176,X / 256: POKE 175.X 
— PEEK (176) + 256 

Fixe l'adresse de fin d'un programme 

Applesoft. À utiliser. par exemple. 

lorsque lon veut ajouter un pro- 

gramme binaire à la suite d'un pro- 

gramme Applesoft. 


e POKE 214.255 

Annule les commandes LIST. NEW. 
POKE. CALL et la commande SAVE 
du DOS Empèche d'insérer ou d'ef- 
facer une ligne BASIC Toute 
commande précitée fera exécuter le 
programme Applesoft en mémoire. A 
utiliser pour empêcher le listage et la 
modification de programmes. Pour 
revenir à la normale, passer en mode 
moniteur et faire ‘D6: 00” 


e POKE 216.0 
Annulation 
ONERR. 


e POKE 228.X 

Permet de changer le code de la 
couleur HGR. Noir=0. Vert=8s. 
Violet=42. Blanc=127. Noir= 128, 
Bleu= 170.  Orange=213. Blanc 
—255. Essayez toutes les autres pos- 
sibilités pour X compris entre O et 
255. 


dune instruction 


e POKE 230.32 

Sélectionne la première page haute 
résolution ($2000-$3FF8) sans l'affi- 
cher. Toutes les instructions de tracé 
agiront sur cette page 


e POKE 230.64 
Sélectionne la deuxième page HGR 
($4000-$5FF8). 


e POKE 230.96 

Les instructions HGR agissent sur 
une 3ème page HGR théorique” 
{$6000-$7FF8). Cette page ne peut 
être affiché par hardware. mais dé- 
placée en bloc vers l'une des pages 1 
ou 2 


e POKE 231 X 
Permet de changer la valeur de 
SCALE (0-...). 


e POKE 233X ; 256 POKE 232 X 
— PEEK (233) + 256 

Fixe l'adresse de début d'une table 

de formes. 


e POKE 241.X 
Fixe la vitesse d'affichage SPEED — 
256-X. 


e POKE 243,0 

Permet de sortir du mode FLASH 
après un <RESET> effectué en 
cours d'exécution de programme. 
Vous êtes dans cette situation lors- 
que. lors du balayage d'une instruc- 
ton par la flèche à droite. le passage 
du curseur provoque l'affichage de 
caractères incohérents. Un POKE 
243.0 rétablit une situation normale, 


e POKE 243.32 
Convertt les majuscules en minuscu- 
les lors d'une sortie sur imprimante. 


e POKE 249X 
Fixe la valeur de ROT à X 


Page 2 


La page 2 ($200-2FF) sert de tam- 
pon (buffer) d'entrée des caractères 
frappés au clavier. La routine de 
S.HLAM utilise des POKESs en page 
2 pour installer en mémoire des 
sous-programmes assembleur. On 
peut aussi l'utiliser pour faire exécu- 
ter à partir du BASIC des instructions 
moniteur : 


CO$=CO$ + ‘ N D9C6G' : FOR 
Z=1 TO LEN(CO$) POKE 51i1+Z. 
ASCIMIDS(COS$.Z.1)} + 128 : NEXT 
Z : POKE 72.0. CALL-144 


Par exemple : 


e CO$= 2000<40005FF8M" co- 
piera la page graphique 2 dans la 


page 1. 

e CO$="300L" liste 20 instructions 
désassemblées à partir de l'adresse 
$300. 

e CO$=" CO81 N COB&1 N 
DO00<D000FFFFM” copie la 
ROM dans la carte d'extension 
mémoire. 
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e POKE 1009.X/256 : 

1008.X-— PEEK(1009)*256 
Change l'adresse de branchement en 
cas de BRK 


e POKE 1011.X/256 : 

1010.X-PEEK(1011)+256 
Modifie l'adresse de branchement en 
cas de RESET 


e POKE 1012.0 
Provoque un 
après un RESET 


e POKE 1013.76 
1015.AD/256 
1014.AD-PEEK(1015)+256 

Initialise & (AMPERSAND) pour un 

saut à un sous-programme dont le 

point d'entrée est à l'adresse déci- 
male AD. 


POKE 


POKE 


démarrage à froid 


POKE 
POKE 


e POKE 1016.76: POKE 
1018.AD/256 : POKE 
1017. AD—PEEK(1018)*256 

Initialise CTRL-Y en mode moniteur 

pour un saut à un sous-programme 

situé à l'adresse décimale AD. 


Pages 4-7 


e POKE 1024 + X + 128:Y — 
9844INT(V 8).CA 

Permet de POKETr directement en 
page 1 de TEXTE (écran) au point 
de coordonnées X et Y (0<= X <= 
39 et O<= Y <= 23} Lé: mode 
d'affichage dépendra de la valeur de 
CA : 


0 <= CA <= 63 : MODE INVERSE 


64 <= CA <=127 : MODE FLASH 
128 <= CA <=191 : MODE NOR- 
MAL 

192 <= CA <=255: MODE NOR- 
MAL ou minuscules 


Dans le cas d'une écriture en page 2 
de TEXTE. remplacer 1024 par 
2048. Attention. votre programme 
Applesoft ne doit pas débuter avant 
$C00 


Pages graphiques 


Un POKE dans les adresses corres- 
pondant aux pages graphiques allu- 
mera un point sur l'écran Vu l'orga- 
nisation des pages HGR. il est peu 
pratique de POKEr directement des 
figures en page graphique. 


DOS 48K 


Toutes les adresses ci-dessous corres- 
pondent à un Apple 48K où le DOS 
est chargé entre $9600 et $BEFF. 
Pour des systèmes 32K ou 16K. il 
faut leur retrancher respectivement 
16384 et 32768 Sauf indication 
contraire. ces adresses sont valables 
en DOS 3.2 et DOS 3,3. 


e POKE 40407.234 : POKE 
40408.234 : POKE 40409.234 

La commande MON CIO n'est plus 

déconnectée lors d'un RESET 


e POKE 4051452 

Permet un démarrage du système 
(BOOT) sur un fichier binaire (valeur 
par défaut = 6 fichier BASIC}. 


e POKE 40514.20 
Permet un démarrage du système sur 
un fichier EXEC. 


e POKE 40993.234 : POKE 
40994234 POKE 40995234 
Permet de passer des commandes 
DOS (OPEN. READ..) en mode DI- 
RECT. sans le message NOT DH 

RECT COMMAND. 


e POKE 42424 192 : 
42432193 

Permet au DOS de reconnaître une 

carte ROM Applesoft ou Integer dans 

le port (slet} 4. 


e POKE 43140,96 : 
43160.96 : POKE 43212.96 
Ces trois POKES annulent respective- 
ment les commandes INIT. DELETE 
et RENAME du DOS en remplaçant 
la première lettre de chaque 
commande par un caractère non ac- 
cessible au clavier de l'Apple Hi+ 
Avec un POKE 214.255 en complé- 
ment {voir plus haut). ceci constitue 
un bon moyen de protection de pro- 
grammes contre les effacements ou 
interventions non autorisés. 
Pour revenir à un DOS standard. 
faire ‘POKE 4314073: POKE 
4316068 POKE 4321282 L'effet 
du POKE 214 ne peut être annulé 


POKE 


POKE 
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queen mode moniteur (voir plus 
haut). 


e POKE 436241 
Sélectionne le lecteur de disquette 1. 


e POKE 436242 
Sélectionne le lecteur de disquette 2. 


Le changement de lecteur peut se 
faire facilement par l'instruction 
"POKE 43624.,3-PEEK(43624)" 


e POKE 43626X 
Sélectonne le port (slot) du lecteur. 
X étant le numéro du port (6.5.4...). 


e POKE 436990 

Déconnecte un fichier EXEC. Le fi- 
chier reste ouvert jusqu'à la pro- 
chaine commande CLOSE. FP. INT 
ou MAXFILES 


e POKE 436991 
Reconnecte le fichier EXEC. 


e POKE 444520 

Supprime la pause du CATALOG. 
Pour revenir à un affichage standard, 
taper ‘POKE 4445222 D'autres 
valeurs donnent des résultats divers. 


e POKE 44505234 : POKE 
44506.234 

Les fichiers effacés (par DELETE) 

sont affichés iors d'un CATALOG. 


e POKE 44596.255 

Supprime la pause du CATALOG. 
Pour revenir à un affichage standard. 
taper POKE 44596.206". 

Un POKE 445960 entraîne un arrêt 
en mode moniteur et le CATALOG 
n'est pas affiché. 


e POKE 44723.X*4 : 
44725.Vx4 

A faire avant une initialisation de dis- 

quette Les seules pistes accessibles 

pour la sauvegarde de fichiers seront 

celles comprises entre X et Y (inclus). 


e POKE 44033, : POKE 
4472316: POKE 44741.12: 
POKE 447643 : POKE 46012.3 

A faire avant une initialisation de dis- 

quette par INIT. Cette série de 

POKES permet de placer le DIREC- 

TORY et la VTOC sur la piste 3 au 

lieu de la piste 17. Cette disquette ne 

sera plus bootable ni accessible par 
un DOS normal. Les programmes de 

a (FID. COPYA) ne fonctionnent 

plus. 

Dans un DOS standard. ces adresses 

contiennent respectivement les va- 

leurs 17. 12. 68. 17. 17. 


e POKE 49107,234 : POKE 
49108.234 : POKE 49109.234 
Evite. lors d'un BOOT à chaud, de 
recharger le langage complémentaire 
(Integer pour un Apple I1+, ou Ap- 
plesoft pour un Apple I} dans la 
carte langage ou la carte d'extension 

RAM). 


POKE 
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BLOCK IOB 


IOB (INPUT/OUPUT BLOCK) est 
utilisé par le sous-programme RWTS 
(Read Write Track Sector) pour l'ac- 
cès à un secteur de la disquette. 
L'adresse de la table IOB utilisée par 
le DOS est donnée par : 

IOB = 256+{(PEEK(PEEK(996) + 
256*PEEK(997)) as 
PEEK(PEEK(999) + 
256*PEEK(1088)) 

normalement I0OB = 47080 {$B7E8) 


Pour modifier les paramètres de la 
table 1OB. on pourra faire les 
POKES suivants . 


e POKE IOB + 3,0 

Met le numéro de volume à zéro. 
Donc accepte de lire la disquette 
quel que soit le numéro de volume. 
Sinon le numéro de volume doit cor- 
respondre au contenu de cette 
adresse. 


e POKE IOB + 4P 
P = numéro de piste (0 - 34) 


e POKEIOB + 5,5 
S = numéro de secteur (0 - 15 en 
DOS 3.3. 0 - 12 en DOS 32). 


e POKE 1OB + 9A256: POKE 
IOB + 8.A-256:PEEK(I0B+8) 
À = adresse du tampon en MEV. 


e POKE IOB + 12.C 
C = 0: positionne la tête de lecture 
au début du secteur défini par P et 


S. 

C = 1: lecture du secteur P. S. 

C = 2: écriture du secteur P. S sur 
disquette. 

C — 4  formattage de la disquette. 


ATTENTION : détruit tout le contenu 
de la disquette. 

Ne pas oublier de mettre la valeur de 
IOB dans les registres À et Ÿ avant 
appel de RWTS (cf. manuel du 
DOS) 


Entrées-sorties ($C000 
$COFF) 


À ces adresses sont implantés des 
switchs (ou bascules) permettant de 
sélectionner une fonction d'entrée- 
sortie donnée. 


e POKE 49168.0 {—16368) 
Reprise de la lecture du clavier. le 
STROBE est remis a zéro. 


e POKE 49184.0 (-16352) 

Actve la sortie magnétophone. Per- 
met par exemple de sortir sur un am- 
plificateur. Un deuxième POKE à la 
même adresse déconnecte la sortie. 


e POKE 492080 : POKE 492000 
(—-16336) 
Produit un ‘CLIC’ du haut-parleur. 


e POKE 49232.0 (—-16304) 
Passage en mode graphique. 


e POKE 49233.0 (—-16303) 
Passage en mode texte. 


e POKE 49234.0 {(—-16302) 
Choix du mode graphique non 
mixte. 


e POKE 492350 (—-16301) 
Choix du mode mixte (4 lignes de 
texte en bas d'écran). 


e POKE 49236.0 (—16300) 
Choix de la page 1 (TEXTE OÙ GR 
OÙ HGR I. 


e POKE 492370 (—-16299) 
Choix de la page 2 (TEXTE OÙ GR 
OÙ HGR). 


e POKE 49238.0 (-16298) 
Basse résolution (mode GR) 


e POKE 49239.0 (—16297) 
Haute résolution (HGR). 


Les commandes HGR et HGR2 effa- 
cent les pages graphiques. Pour pas- 
ser à une page graphique sans effa- 
cement de son contenu. faire par 
exemple pour la page 2: 

POKE 492320: POKE 492340 
POKE 49237.0 : POKE 492390 


Pour basculer entre les pages 1 et2. 
exécuter l'instruction : 


POKE 230. 96 — PEEK (230). 


e POKE 492401 (—-16296) 

Met la sortie numérique 0 (patte 15 
de la broche manette) à l'état OFF” 
(5 volts). 


e POKE 49241.0 {—-16295) 
Met la sortie numérique 0 en position 
“ON” (0,3 volts). 


e POKE 492421 (—-16294) 

POKE 492430 (— 16293) 
Idem pour la sortie numérique 1 
(patte 14). 


e POKE 49244 1 (—16292) 

POKE 49245,0 (— 16291) 
Idem pour la sortie numérique 2 
{patte 13). 


e POKE 492461 (—-16290) 

POKE 49247,0 (—-16289) 
Idem pour la sortie numérique 3 
(patte 12). 


e POKE 49248,0 (—-16288) 

Active l'entrée magnétophone. Un 
deuxième POKE à cette adresse dé- 
sactive l'entrée. 


e POKE 49280.0 (—-16256) 
Connecte la carte d'extension mé- 
moire (BLOC 2) en mode lecture. 
Protection en écriture. 


e POKE 49281.0: POKE 49281.0 
(—16255) 

Déconnecte le BLOC 2 en mode lec- 

ture. Déprotège en écriture. La lec- 

ture de la ROM est possible. 


e POKE 49282 ,0 (—-16254) 
Carte (BLOC 2) déconnectée en lec- 
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ture. protégée en écriture. c’est à dire 
retour au langage en ROM. 


e POKE 492830: POKE 492830 
(— 16253) 

Le BLOC 2 de la carte d'extension 

est accesssible en lecture ET en écri- 

ture. 


Les 12K du BLOC 1 sont accessibles 
de la même façon par les POKESs sui- 
vants: 


POKE 492880 (—16252) 
POKE 49289.,0 (-16251) 
POKE 49290.0 (—16250) 
POKE 49291.0 (—16249) 


Pour une carte d'extension 32K ou 
plus, la 2ème tranche de 16K est ac- 
cessible par les POKES indiqués ci- 
dessous : 


BLOC 2 utiliser les POKES 49284 
à 49287 


BLOC 1 : utiliser les POKES 49292 
à 49295. 


Correction d’utilitaires 


RENUMBER 


Lutilitaire de renumérotation de 
lignes livré avec les disquettes Master 
DOS 32 et 3.3 comportait un ‘bug” 
qui peut être corrigé par les POKESs 
ci-dessous 


Après avoir chargé RENUMBER en 
mémoire par un LOAD,. taper 


e POKE 4815172 et POKE 
4816.171 pour un DOS 3.2. 
e POKE 4789172 et  POKE 


4790171 pour un DOS 3,3. 


Sauver le programme modifié par 
SAVE RENUMBER 


Bibliographie 


Tous ouvrages français consacrés à 
l'Apple Il. 

Revues : Pom's, L'Ordinateur Indivi- 
duel, CALL APPLE , NIBBLE 
APPLE ORCHARD). 


Conclusion 


Tous ces POKES ont été testés avec 
DOS 33. 32. 321 A moins d'une 
erreur de transcription, ils devraient 
être corrects. Prière de signaler les 
erreurs éventuelles. Cette compilation 
ne tient certainement pas compte de 
nombreuses autres possibilités de 
modification du DOS (cf. les nom- 
breux ‘patches’ possibles mais qui 
nécessitent plus que quelques 
POKES). ni des corrections éventuel- 
les pour l’Applesoft chargé en carte 
langage. = 





Un programme de menu 


Ce programme en assembleur vous 
permet, en relation avec le pro- 
gramme de gestion de masques de 
G. Michel (POM'S 7). de réaliser très 
rapidement les menus de vos pro- 
grammes BASIC. 

l permet de répondre à un menu 
soit par déplacement à l'aide des filè- 
ches -> ou <:, soit par réponse litté- 


dans tout programme BASIC. Avant 
de l'appeler. il est nécessaire de lui 
communiquer certaines informations 
par des POKE aux adresses correc- 
tes. Les informations concernées sont 
les suivantes : 


e adresse 0: le numéro de la ligne 
de là première modalité de choix 
(entre O et 23). 


Gilles Mauffrey 


et 39): cette colonne. pour chaque 
modalité de choix. doit contenir 
un caractère non blanc. 

e adresse 2: le nombre de modalités 
de choix, 

e adresses 36,37: positionnement du 
curseur en cas de réponse littérale. 


Le petit programme de démonstra- 
tion listé ci-après vous fournira les in- 


rale (une lettre A.B.C. ). 
Ce programme est relogeable: vous 
pouvez donc l'intégrer très facilement 


e adresse 1 


le numéro de la co- 
lonne à partir de laquelle se fera 
l'inversion des caractères (entre O 


dications complémentaires pour la 
mise en oeuvre de la routine. = 














S D$ = CHR$ «4) 
NP eee Masque 10 HOME : PRINT D$"8L8AB MASKDEMO 
«*semo Menux  MASK DEMO RE CAOOSDTE 
æ æ 15 GOSUB 5000 
JE DE DE 2€ DE JE DE JE JE 20 POKE 0,/7: POKE 1,6: POKE 2,4: POKE 
36,35: POKE 37,20 
40 PRINT D$"BLGAD B:MENU,A$S9500" 
AAC RREMER CNOPE 50 CALL 9 x 256 * 16 + 5 x 256 
99 FOR J = 1 TO 600: NEXT 
> SECONB CHOIX 60 X = PEEK (3): ON X GOSUB 1000, 
2000,3000 
70 END 
&C> TROISIEME CHOIX 1000 HOME : PRINT "SPt" 
1010 RETURN 
<b> OUATRIEME CHOIX 2000 HOME : PRINT "SP2'": RETURN 
3000 HOME PRINT *SP3°: RETURN 
5000 DATA 1024,1152,1280,1408,15 
VOTRE CHOIX : 36,1664,1792,1920,1064,1192,1 
320,1448,1576,1704,1832,1960, 
; ee 1104,1232,1360,1488,1616,1/744 
UTILISER LES -> , <- OÙ LA LETTRE VOULUE ,1872,2000 
95005 RESTORE 
DEMOMENU 5010 FOR J = 1 TO 24: READ N: FOR 
K = 0 TO 39: POKE N + K, PEEK 
1 REM  PROGRRMME DE MENU {8 * 256 *x 16 + N + Ki: NEXT 
2 REM  CAPPLESOFT) K: NEXT J 
3 REM ================= 5020 RETURN 
D 
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Programme MENU.TEXT 100 
DOS TOOL KIT 30 CLU 101 
O1 JSR $FF58 102 BINEF 
1 ORG +$9000 52 BUC  EFFACE 103 
2 LIGNE EQU $00 53 INC REP 104 
3 COLONNE EQU #01 54 LDA REP 105 
4 CHOIX EQU +$02 55 CMP CHOIX 106 
5 REP EQU $03 56 8cC CAUA 107 STOB 
6 LETMAX EQU $04 57 BEQ CAVA 108 
7 TEMP EQU $05 58 LDA #0! 109 
8 CH EQU +$24 59 CAVA STA REP 110 
9 CL EQU +$25 60 CLV ii 
10 BASE EQU +$28 61 JSR $FFSB 112 INYER 
11 BASCALC EQU #FBC1 62 BUC  PRECAL 113 
12 REPONI LDA CU 63 BUS PCL 114 
13 JSR BASCALC 64 INVERM BUC  INVER 115 
14 LDY CH 65 PRECAL TSX 116 
15 LDA  H#$SF 66 DEX 117 INO 
1é STA (BASE) ,Y | 67 DEX 116 
17 LDA #01 68 TXS 119 
18 STA REF 69 CLU 120 
19 LDA LIGNE 70 JSR $FF58 121 
20 JSR BASCALC 71 BVC CALINE 122 
21 CLU ta CLU 123 BINW 
22 JSR $FFS8 73 JSR $FF58 124 
23 BVC  INVERM 74 BLC  INVER 125 
24 CLC 75 BIT $FF58 126 
25 LDA #’A 76 RTS 127 
26 ADC CHOIX 77 LETTRE PHA 126 
27 STA  LETMAX 78 CLU 129 
28 PCL LDA $CO000 79 JSR $FF58 130 
29 BPL PCL 80 BUC  EFFACE 131 CALINE 
30 BIT +$C010 81 PLA 132 
31 CMP  #$CIi 82 SEC 1 33 
32 BCC CTRL 83 SBC  ##$C0 1 34 
33 CMP  LETMAX 84 STA REP 135 
34 8cS PCL 85 CLU 136 
35 BCC LETTRE 86 JSR $FF58 1 37 
36 CTRL CMP #$88 87 BLVC PRECAL 138 
37 BNE CTRT 88 BVS  REVIEN 139 
38 BEQ ARRIERE 89 ARRIERE CLV 140 CALIN 
39 CTRT CMP  #$8D 90 JSR $FF58 141 
40 BNE CTRU 1 BLVC EFFACE 142 CALI 
41 REVIEN LDA Œ 92 DEC REP 143 
42 JSR  BASCALC 93 LDA REP 144 
43 LDY CH 94 BNE  CAVA 145 
44 LDA REP 95 LDA CHOIX 146 
45 ORA #$CO 96 &NE CAVA 147 
46 STA (BASE) ,Y | 57 Errace 13X 148 
47 RTS 98 DEX 149 TROUVE 
48 CTRU CMP _##95 99 DEX 150 
RECAPITULATION 9050- 20 58 FF 50 Si 
9058- 03 C5 02 90 04 
9000- ÀS 25 20 Ci FB A4 24 A9 S9060- 01 85 03 B8 20 
9008- SF 91 28 AS 01 85 03 A5 9068- 04 70 Bé 50 52 
9010- 00 20 C1 F8 B8 20 58 FF 9070- SA B8 20 58 FF 
9018- 50 51 18 AS Ci 65 02 85 907B8- 20 58 FF 50 42 
°9020- 04 AD 00 CO 10 FB 2C 10 9080- 60 48 B8 20 58 
9028- CO C9 Ci 90 06 C5 04 B0 9088- 68 38 E9 CO 85 
9030- FO 90 4E C9 88 DO 02 FO 9090- 58 FF 50 D9 70 
9038- Sb C7 8b DO 0E ÀS5 25 20 9098- 58 FF 50 DA Cé 
9040- Ci FB A4 24 ÀS5 03 09 CO £,0A0- DO BF AS 02 DO 
9048- 91 28 60 C9 95 BO B2 88 S0OAS- CA 9A A0 27 Bi 
Fes 
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RELE 2e 


#39 
(BASE) ,Y 
#$C0 
H$EO 
STOB 
#$40 
(BASE) ,Y 


BINEF 
$FF58 


#40 


(BASE) ,Y 


(BASE) ,Y 
#9$3F 
(BASE) ,Y 


COLONNE 
BINU 
$FF58 


REP 
COLONNE 
LIGNE 
TEMP 
BASCALC 


TROUVE 


90B0- C9 EC 90 02 E9 40 91 28 90E0- CA CA 9 Àé 03 A4 01 À5 
90B8- 88 10 F1 2C 58 FF 60 BA 90E8- 00 85 05 20 C1 FB CA FO 
90C0- CA CA 94 A0 28 88 B1 28 90F0- OF Eé 05 ÀS 0S 20 C1 FB 
90C8- C9 A0 F0 F9 49 EO FO F5 90F8- B1 28 49 À0 F0 F3 DO EE 
90D0- B1 28 29 3F 91 28 88 Ca 9100- 2C 58 FF 60 


90D8- 01 BO F5 2C 58 FF 60 BA 
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Les logiciels 


Guy Lapautre 


Avant d'aborder l'analyse de Guten- 
berg, il m'a semblé intéressant d'exa- 
miner la conception globale d’un sys- 
tème de traitement de texte sur 
micro-ordinateur, Pour cela, nous 
allons comparer à Gutenberg deux 
classiques : Magic Window et Apple 
Writer Il. 


Magic Window 


Au lancement, Magic Window pro- 
pose un menu permettant de s'orien- 
ter vers l'édition, l'impression, la ges- 
tion des disques, .. 


Dans la plupart des cas, ce premier 
choix dirige vers un second menu. 
Par exemple, la fonction de gestion 
des disques proposera des options 
telles que sauvegarde ou relecture, 
annulation. 


Quand on est.à l'intérieur de l'option 
édition, le mode de fonctionnement 
normal est le remplacement : taper 
sur une touche, quel que soit l’en- 
droit où l'on se trouve dans le texte, 
provoque le remplacement de l'an- 
cienne frappe par la nouvelle et, si 
lon est en fin de texte. l'ajout du 
nouveau caractère. 


Si on désire insérer un ou des carac- 
tère(s) à l'intérieur d’un texte, il 
convient de se placer d’abord en 


mode insertion. 


Enfin, les formats d'impression font 
partie intégrante du texte, si on choi- 
sit de les sauvegarder dans l'option 
"texte formaté”. 


Il s’agit là d'une des grandes origina- 
lités de Magic Window. Par ailleurs, 
les textes ainsi sauvegardés le sont 
en binaire. Îis tiennent moins de 
place sur disque que le même fichier 
en code. ASCII, et les échanges dis- 
que sont plus rapides. 


Apple Writer II 


Au lancement, Apple Writer Il se met 
en option édition, invitant à entrer di- 


Perd 


LT TE 2: 


de traitement de texte 


rectement un texte. Si ce n’est pas ce 
qu'on désire faire, il faut demander 
un menu (disques, impression, fonc- 
tions auxiliaires), ou effectuer directe- 
ment une commande qui ne sort du 
mode édition que pendant son exé- 
cution (sauvegarde, lancement d’une 
impression). 


Le mode de fonctionnement normal 
est l'insertion : taper sur une touche 
provoque l'insertion du caractère 
frappé avant celui sur lequel se 
trouve le curseur. 


Si on désire procéder à un remplace- 
ment, il faut choisir ce mode particu- 
lier (qui ne permet d’ailleurs que 
l'utilisation des touches imprimables, 
à l'exclusion de toute clé de fonction 
ou de déplacement). 


Les formats d'impression sont indé- 
pendants des textes : le même format 
peut être utilisé pour plusieurs textes, 
mais il faut demander chaque fois 
l'utilisation d’un format d'impression. 


Par ailleurs, Apple Writer [! possède 
deux fonctionnalités originales : une 
fonction Glossaire permettant l'usage 
très simple de mots ou petites phra- 
ses à caractère répétitif. et un lan- 
gage associé permettant de program- 
mer des commandes, le *’WPL” 


Gutenberg 


Au lancement, Gutenberg propose 
une ligne de commande non 
commentée, qui permet de décider 
de l'utilisation d'un fichier (répertoire 
du disque, police de caractères, fi- 
chier texte .…). 


La mise en position d'édition se fait 
par l’appel d’un fichier texte; il faut 
ensuite appeler la fonction choisie 
(par exemple : insertion). Pour chan- 
ger de fonction, il convient de sortir 
du mode en cours (par ESC), puis 
de demander une nouvelle fonction. 


Les formats d'impression sont totale- 
ment indépendants des fichiers texte 


Le logiciel en propose une grande 
variété, et il est possible d'en créer 
d'autres. Un système de “macros” 
permet d’attacher un format standard 
à un texte. Un questionnement préa- 
lable à l'impression permet le choix 
d’un format non standard. 


Une grande originalité de Gutenberg 
est la possibilité de dessiner ses pro- 
pres polices de caractères: Guten- 
berg utilisant un écran graphique, 
toute fantaisie de représentation est 
possible : symboles mathématiques. 
sigles. logos, En contrepartie, l’im- 
pression de ces caractères spéciaux 
est très lente. 


Commentaires 


Ces différences fondamentales de 
conception font qu'il est trompeur de 
donner une cote de commodité d'uti- 
lisation ou de facilité d'apprentissage 
à un logiciel de traitement de texte : 
cettains préfèrent le menu à la ligne 
de commandes. B'autres préfèrent 
travailler normalement en mode rem- 
placement (notamment ceux qui ont 
appris la dactylographie sur machine 
classique). D’autres enfin voudront 
avoir un texte prêt à l'emploi, y 
compris ses options d'impression. 


On peut donc comparer les fonction- 
nalités. Les fonctionnalités de base 
sont à peu près les mêmes partout. 
seules variant les conditions d'utilisa- 
tion. Par exemple, les déplacements 
dans le texte peuvent se faire uni- 
quement grâce aux fèches de direc- 
tion, ou utiliser des caractères de 
contrêle. 


En revanche (et nous en avons déjà 
vu quelques exemples), il existe pour 
chacun des fonctions particulières qui 
peuvent sembler primordiales aux 
uns, compte tenu du type de travail 
qu'ils effectuent, inutiles aux autres 
qui les trouveront sans intérêt. 
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Gutenberg est un logiciel de traite- 
ment de texte proposé par Guten- 
berg Software Limited. fonctionnant 
sur Apple II+ 64K ou //e. 


ll exuste en 2 versions: Gutenberg 
Junior (version testée ici) et Guten- 
berg Senior. présentant un certain 
nombre de fonctionnalités supplé- 
mentaires, dans des domaines qui se- 
ront indiqués au cours de l'analyse. 


Gutenberg Jr est présenté sur une 
disquette double face contenant, 
outre le programme proprement dit, 
divers fichiers utiles et. sous forme de 
“démos”. tout ce qui est nécessaire 
pour éditer le manuel sur impri- 
mante. 


Si certains usages (limités) s'accomo- 
dent d'imprimantes diverses. le logi- 
ciel est essentiellement écrit pour 
l'imprimante matricielle Apple. Un 
jeu important d'interfaces graphiques 
est proposé. L'interface PROM 1/2 
pour Apple ne l'est pas. mais il suffit 
(nous Favons découvert par têtonne- 
ments.) de déclarer péremptoire- 
ment quon possède une interface 
Epson et tout marche bien (rien ne 
marche avec les autres interfaces 
proposées). 


Plusieurs modes de fonctionnement 
sont possibles. en 40 ou 80 colon- 
nes. en utilisant ou non l'écran gra- 
phique Haute Résolution pour les ca- 
ractères spéciaux. Mais ATTENTION. 
l'option la plus avancée : 80 colon- 
nes et écran graphique, nécessite une 
carte 80 colonnes ETENDUE (cette 
limitation fait l'objet de 2 lignes 1/2 
“cachées” au fond d’un paragraphe). 


Mode d'analyse 


Nous évaluons les avantages et in- 
convénients de Gutenberg en fonc- 
ton de ce qu'un utilisateur de traite- 
ment de texte est en droit d'attendre. 
cest pourquoi nous allons d'abord 
tenter une définition de cet utilisa- 
teur : il ne peut pas se contenter des 
possibilités offertes par les traitements 
de texte classiques. Il est prêt à payer 
ces exigences par une complexité 
plus grande à l'usage. Par exemple : 


- professeur de mathématiques vou- 
lant faire des polycopiés 

- électronicien utilisant les symboles 
de sa profession 

- styliste cherchant à associer des 
images, des logos. 


Avantages et inconvénients sont pré- 
sentés sous 7 têtes de chapitre : 


1 - Approche du logiciel 
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Gutenberg à l’essai 


2 - Les fonctions d'entrée de texte 
(édition} 

3 - Le formatage des pages et para- 
graphes 

4 - L'impression 

5 - Les échanges disque 

6 - La création de ‘polices de carac- 
tères” 

7 - La documentation 


1 - Approche du logiciel 


Au lancement. le logiciel propose 
d'abord de choisir l'interface pour 
l'imprimante matricielle Apple que 
l'on va uütliser. puis dindiquer le 
connecteur sur lequel cette carte est 
enfichée. enfin de choisir ou non le 
mode ‘’démos”. 


En mode de fonctionnement normal. 
une ligne de commande apparaît en 
haut de l'écran. indiquant notam- 
ment le ‘mode écran’ (haute résolu- 
tion ou non) et le lecteur de disque 
en usage (évidemment le 1 lors du 
démarrage} et proposant de démar- 
rer par READY”. 


On peut alors décider de ce qu'on va 
faire. par exemple. changer de dis- 
que ou de mode écran. travailler en 
40 ou 80 colonnes ou. après avoir 
pressé la touche "RETURN". éditer 
le catalogue du disque. lire un fichier. 
exécuter un programme utilitaire de 
gestion de disque... 


Aucun mnémonique n'étant proposé. 
il y a donc au départ une dizaine de 
codes opératoires à connaître : 


1 ou 2 - lecteurs de disques 

4 où 8 - 40 ou 80 colonnes 

I ou © - travail en haute résolution 
ou non (hlgh: IOw) 

6 - “re-boote” le système 

Ctrl-D - mode “démos” 

Ctrl-P - programme d'impression 
RETURN - demande d'un nom de 
programme ou du catalogue 


Nous retrouverons un peu tout au 
long des diverses fonctions un certain 
ésotérisme parfois gênant. C'est ainsi 
qu'en mode édition G est utilisé pour 
une recherche (comme GET et non 
pas F comme FIND) et X pour le 
remplacement d'un caratère par un 
autre (eXchange). 


Avantages - L'écran nest pas en- 
combré par un menu. Une seule 
frappe suffit fréquemment pour réali- 
ser une commande. L'exécution de 
cette commande, dans là mesure où 
il n'y a pas d'appel au disque. est 
très rapide. 


Guy Lapautre 


Inconvénients - || faut avoir une 
bonne mémoire pour emmagasiner 
tous les codes. ou un synoptique très 
bien fait (il manque cruellement dans 
la documentation). 


Synthèse - Il SEMBLE que les au- 
teurs de Gutenberg n'aient pas mis 
au premier rang de leurs préoccupa- 
tons le souci de simplicité et de 
“convivialité”. pour employer un 
terme à la mode C'est clair et 
concis, c'est très abstrait. Il s'agit là 
d'une constatation et non d’un juge- 
ment. 


2 - Les fonctions d’en- 
trée de texte (édition) 


Toutes les fonctions classiques sont 
là : déplacement du curseur dans le 
texte. insertion. effacement. rempla- 
cement. recherche par le contenu. 
déplacement de paragraphes. etc. 
Elles sont le plus souvent assorties 
d'un grand luxe de sous-fonctions. 


A titre d'exemple. voici les sous-fonc- 
tions permettant de ‘détruire’ tout 
ou partie d’un texte: 


e K détruit le caractère sous le cur- 
seur 

e DELETE détruit un mot 

e DW aussi 

e DL détruit une ligne 


D suivi des f'èches : 


e gauche détruit le début d'une 
ligne 

e droite détruit la fin d'une ligne 

e haut détruit depuis le début de 
l'écran 

© bas détruit jusqu à la fin de l'écran 

D suivi de : 


e Ctrl-S détruit tout l'écran 
© Ctrl-M marque la limite d'une des- 
truction 


Tout ce qui est ainsi détruit est irré- 
cupérable. 


Pour passer d'une fonction à une 
autre, i faut toujours ‘revemr à la 
case départ” par ESC. Soit par 
exemple la phrase ‘LOUI VAS A 
L'ECOLE” qu'on désire transformer 
en "LOUIS VA A L'ECOLE”. Voici 
une séquence nonnale d'opérations : 


Commande Ÿ {insertion d’un carac- 
tère) 

se placer derrière LOUI 

taper S 

ESC 


Commande X (remplacement) 
se placer sur ” 


IAA 
FOIRE : 2HERESH 
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taper 
ESC 


Se placer sur le S de VAS 
K (destruction d'un caractère) 


On peut imaginer plus simple ! 


ATTENTION. il y a un piège dans 
lequel l'auteur de ces lignes est sou- 
vent tombé: une séquence d'inser- 
tion doit se terminer par un retour 
aux caractères normaux. si on utilisait 
des caractères programmés. Si on a 
omis de le faire. aucune fonction ne 
reste disponible. Un ‘A’ sur la ligne 
de commande prévient de cette si- 
tuation. En sortir par ‘Pomme ou- 
verte - RETURN”. 


Avantages - TRES larges possibilités 
dans de nombreux domaines (par 
exemple recherche dans le texte. re- 
copies, remplacements). Ces possibi- 
liés ne seront probablement pas 
utiles à tous, mais chacun peut y pui- 
ser ce qui l'intéresse {c'est d'ailleurs 
écrit dans la notice). 


Inconvénients - Mêmes remarques 
que pour le chapitre précédent. en 
notant qu'il ne s’agit plus d'une di- 
zaine de codes. mais de plusieurs di- 
zaines de sous-options (sans doute 
plus de 188 en comptant toutes les 
variantes). 


Synthèse - Sans trop perdre des 
fonctionnalités du produit, it eût été 
possible de faire plus simple. La 
frappe de textes très longs sans 
‘effets spéciaux” est lourdement pé- 
nalisée par le système d'édition 
adopté par Gutenberg. 


3 - Le formatage des 
pages et des paragraphes 


Là aussi. large panoplie de fonction- 
nalités. obligeant si on veut utiliser 
toutes les astuces. à une certaine jon- 
glerie avec les ‘macros : ce sont des 
commandes assez simples permettant 
la pagination. la présentation en 2 
colonnes. l'édition de lettres. d'éti- 
quettes. les différentes sortes de titra- 
ges hauts et bas. la numérotation en 
décimal ou en romain, l'indentation 
des paragraphes. leur numérotation. 
les sauts de lignes. . 


Des macros commandent aussi l'im- 
pression : types de caractères. gras 
ou maigres. espacement proportion- 
nel ou non. avec des largeurs va- 
triées... ainsi que les débuts et fin de 
colonnes. de pages. enchaînement 
d'impressions… 


Il existe au moins une centaine de 
ces macros. Mais il existe aussi. pour 
traiter les cas courants. des formats 
standards sur la disquette. À noter 
que des formats plus nombreux sont 
proposés par Gutenberg Sr. ainsi que 
la possibilité de créer de nouvelles 
macros. 


Les macros étant incluses dans le 
texte. le format d'impression. s'il est 
standard, fait donc partie de ce der- 
nier et lui sera toujours attaché. Une 
précaution à observer : le format uti- 
lisé doit être disponible sur la dis- 
quette. Gutenberg le recherchera au- 
tomatiquement. 


Si en revanche vous désirez utiliser 
vos propres formats. l'indication 
devra en ètre donnée au moment de 
l'impression. 


Avantages - Comme déjà vu. trés 
larges possibilités. avec en plus le 
moÿen de s'affranchir du maniement 
pas toujours simple des macros grâce 
aux formats préconstruits. 


Inconvénients - Le nombre consi- 
dérable de macros fait qu'il est tota- 
lement impossible de les connaître 
par coeur. L'absence d'un bon sy- 
noptique se fait sentir. à moins qu'on 
ne renonce aux possibilités offertes. 


Synthèse - Parfois abondance nuit. 
Mais ne jetons pas la pierre à qui a 
voulu bien faire. Quel dommage qu'il 
n'y ait pas un résumé des comman- 


des principales ! 
4 - L’impression 


Gutenberg est écrit pour impression 
sur l'imprimante matricielle Apple (cf. 
début de l'évaluation) Il est possible, 
mais nullement certain. qu'il puisse 
fonctionner avec d'autres impriman- 
tes. De même, une liste d'interfaces 
est proposée. D'autres sont possibles. 
la carte PROM 12 par exemple. 
Chaque utilisateur ne disposant pas 
dune des configurations standard 
devra tàtonner. sans être sûr du 
succès. 


L'impression d'un texte écrit en ca- 
ractères ‘normaux se fait sans pre- 
blèmes particuliers. Veiller seulement 
à ce que le format d'impression soit 
présent sur la disquette. 


En revanche, l'impression des carac- 
tères spéciaux (Alternate Character 
Set} se fait très lentement. car c'est 
une impression de GRAPHIQUE. Le 
passage. ligne par ligne. de l'impres- 
sion texte à l'impression graphique. 
produit un effet curieux. Le papier 
monte et descend: il y a des retours 
arrière, mais strictement aucun pro- 
blème na été rencontré Le tout 
semble parfaitement fiable. 


Attention : si on utilise dans un texte 
des caractères spéciaux. il faut veiller 
à ce que la police de caractéres 
{FONT) utilisée pour édition se 
trouve bien sur le même disque que 
le texte au moment de l'impression. 


On peut regretter qu'il ne soit pas 
possible d'imprimer un texte en mé- 
moire sans passer par la séquence : 


Sauvegarde sur disque (automatique) 


Impression 
Rappel (si on veut réutiliser le même 
texte) 


sauf dans le cas particulier où on 
veut faire plusieurs impressions suc- 
cessives du même texte. 


IL existe des macros permettant de 
“jouer avec les caractères. y 
compris par exemple double souli- 
gnement ou italique. et d'autres pour 
programmer des impressions. 


Signalons d'autre part une option 
“DUMP” qui permet l'impression to- 
tale d'un texte. Y COMPRIS les ca- 
ractères de contrôle. 


Avantages - Très grande souplesse 
et très grande fiabilité de l'impres- 
sion. utilisant toutes les possibilités de 
l'imprimante matricielle Apple. On 
peut produire des textes de très 
bonne qualité (voir exemple en an- 
nexe). 


Inconvénients - Tout juste peut-on 
citer l'impossibilité d'imprimer ‘en 
passant” un texte en mémoire. 
Synthèse - L'impression est incon- 
testablement un point fort de Guten- 
berg. et il faudrait être bien difficile 
pour ne pas apprécier les performan- 
ces du logiciel! dans ce domaine. 


5 - Les échanges disque 


Ïs sont relativement nombreux mais 
généralement assez brefs. C'est sans 
doute la raison pour laquelle les au- 
teurs proposent de faire une copie de 
la disquette Master. copie qui ne sera 
pas capable d'initialiser le système. 
mais qui pourra remplacer le Master 
après le “boot” initial. 


La seule précaution notable à pren- 
dre consiste à s'assurer que l'ensem- 
ble de ce dont on a besoin pour édi- 
ter ou imprimer un texte est présent : 
texte lui-même. format et police de 
caractères. 


Le passage d'un lecteur de disque à 
l'autre (2 lecteurs sont indispensa- 
bles) se fait très simplement par la 
frappe du chiffre 1 ou 2 quand on 
est en position READY”. 


Le système comporte un certain 
nombre de fonctionnalités intéressan- 
tes : 


Tout d'abord, il est possible d'éditer 
ou d'imprimer le catalogue d'une dis- 
quette. Il est également possible de 
choisir un fichier (texte, format ou 
police de caractères) en pointant sur 
le catalogue. 


Ensuite, un certain nombre de 
commande type DOS sont directe- 
ment accessibles à partir de Guten- 
berg: initialisation. copie totale ou 
partielle, destruction, … 


Il n'y à pas lieu de faire de commen- 
taires spéciaux à ce niveau. 
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6 - La création de carac- 
tères 


C'est la principale originalité de Gu- 
tenberg par rapport aux traitements 
de texte classiques, celle qui fait que 
Gutenberg sera particulièrement ap- 
précié par les utilisateurs dont les be- 
soins sortent de l'ordinaire. 


[l existe une option ‘SCREEN‘ à 
partir de laquelle on peut dessiner 
sur une matrice de 7*1@ tout carac- 
tère. au sens le plus large du terme : 
alphabet étranger. symboles mathé- 
matiques. composants électroniques. 
structures chimiques. logos. orne- 
mentations diverses. 


Si une matrice est trop petite. on 
peut en utiliser plusieurs Chaque 
matrice sera désignée par une touche 
au clavier. La police de caractères 
spéciaux ainsi construite sera utilisée 
(et créée) en faisant précéder la tou- 
che frappée de “/” (pour 1 carac- 
tère). ou de ‘Pomme ouverte RE- 
TURN” (pour une suite de 
caractères). Dans ce dernier cas. on 
désamorcera l'utilisation des caractè- 
res spéciaux par un second ‘PO. 
RETURN” Surtout. NE PAS L'OÙU- 
BLIER (cf. remarque dans le chapitre 
édition). 

Gutenberg Jr propose une de ces 
polices de caractères. comportant 
surtout des caractères accentués de 
format réduit. et d'esthétique discu- 
table - voir l'exemple en annexe. 


Gutenberg Sr est beaucoup plus 
riche dans ce domaine. 


L'exemple annexé donne un apercu 
du type de caractères et symboles 
quil est possible de créer et d'impri- 
mer. À noter, pour les lecteurs réqgu- 
liers de Pom's. que la méthode de 
création de caractères est très proche 
de celle décrite dans le Poms 8. 
pages 21-25. 


la "MACRO" @L. 


travailler 
Justification: 
et. droite, 
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gauche 


Avantages - Indiscutables. les avan- 
tages que comporte cette fonctionna- 
lité font de Gutenberg un traitement 
de texte à part. 


Inconvénients - Lenteur de l'im- 
pression dès qu'on est en présence 
de caractères spéciaux. 


Synthèse - Le lecteur ne sera pas 
étonné de voir l'auteur particulière- 
ment séduit. Mais un conseil s'im- 
pose : nous avons déjà vu à plusieurs 
reprises que les performances de Gu- 
tenberg se payaient au prix d'une 
certaine complexité. ce qui est bien 
normal. C'est vrai aussi ici. Guten- 
berg est sans doute le marteau-pilon 
pour écraser la mouche. sil faut en- 
trer uniquement du texte banal au ki- 
lomètre. 


7 - La documentation 


Gutenberg est vendu SANS DOCU- 
MENTATION IMPRIMEE digne de 
ce nom: l'utilisateur imprime lui- 
même sa documentation en utilisant 
les démos proposées. On peut ou 
non apprécier une méthode qui 
certes réduit les coûts. mais qui 
complique la tâche de l'utilisateur 
(des heures de travail), et donne des 
résultats dont la qualité n'est pas 
comparable à celle d'un manuel bien 
fait. 


Cette documention (en anglais) pré- 
sente des lacunes. dont la principale 
est le manque total (déjà signalé) 
d'un synoptique résumant les 
commandes PRINCIPALES. Certes. 
de-ci de-là, l'utilisateur est avisé que 
telle option est indispensable. alors 
qu'on peut remettre à plus tard 
l'étude de telle autre. Mais comme 
c'est noyé dans l'ensemble du texte, 
la lecture n'en n'est pas facilitée. 


On peut aussi lui reprocher de ne 
pas mettre en valeur la grande origi- 
nalité que constitue la création de 


EXEMPILE 


Voici un exemple de frappe "au 
Kilomètre", avec justification à 
gauche. On utilise peur ce faire 


Quelques 


Vert 27e EnNRrIÉ Err? 
exverraoie in) ERSIENr Er 
iialdigiure etc lignes 
Juséisiees à araorte. 


IŒZ 


On peut aussi bien sur 
en 


pleine 


exemples de 
composés par l'utilisateur: 


polices de caractères: très peu 
d'exemples sont présentés. alors que 
les formats et leurs macros tiennent 
de nombreuses pages. 


Nous n'apprécions nullement cette 
documentation. s'agissant d'un pro- 
duit qui n'est pas vendu à bas prix 


Conclusion 


Gutenberg apparaît comme un traite- 
ment de texte présentant de nom- 
breuses originalités et des fonctionna- 
lités très variées. 


Parmi ses faiblesses - Un manie- 
ment complexe, obligeant très sou- 
vent à ‘hacher’ le travail pour passer 
d'une option à une autre - Le fait de 
n'accepter, en principe. que l'impn- 
mante matricielle Apple - Une docu- 
mentation totalement indigne d'un 
logiciel de cette classe. 


Parmi ses forces - La possibilité 
pour l'utilisateur de créer ses propres 
"polices de caractères” - L'impres- 
sion. surprenante au premier abord. 
mais très fiable. d'un mélange de 
texte et de graphique - La possibilité. 
malgré de nombreux tâtonnements 
au début. de trouver dans la pano- 
plie des fonctionnalités offertes celles 
qui conviennent à un problème parti- 
culier. 


En synthèse - Gutenberg est peut- 
être la ROLLS des traitements de 
texte sur Apple. Il fut un temps où la 
ROLLS était livrée chauffeur 
compris. Sans aller aussi loin. Guten- 
berg n'est sans doute pas un traite- 
ment de texte à mettre entre toutes 
les mains. mais en revanche il sé- 
duira tous ceux -nombreux-qui veu- 
lent sortir du standard et du banal. 


Gutenberg. le second traitement de 
texte ? 


caracteres 


Ju (ax 1+bx+cx) dx 


sin Ex n+x 1+x 2) 


Ce texte est un exemple d'impression 
programmée sur 2 colcnnes. De nombreux 


autres formats d'impression sont disponibles. 
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Pommesoft 
Philippe Faure 


Les programmes présentés ici per- 
mettent de charger l'Applesoft dans 
la carte langage, puis de le modifier. 
Les avantages que l'on peut retirer 
de l'implantation d'un BASIC modi- 
fié sont nombreux . 


® possibilité de programmer en lan- 
gue française (ou autre, bien sûr. 
selon les modifications apportées). 

® possibilité de “traduire” en Pom- 
mesoft un programme déja écrit 
en Applesoft. li suffit de sélection- 
ner le Pommesoft et de charger le 
programme : la traduction est au- 
tomatique, 

e de même, la démarche inverse est 
possible, et ce de façon automati- 
que grâce aux commandes &A et 
&P qui permettent respectivement 
de passer en Applesoft et en Pom- 
mesoft en cours de travail Ce 
transfert s'effectue sans perte du 
programme (contrairement aux 
ordres FP et INT). 

e modification de certaines routines 
de l'Applesoft (comme le ‘’GAR- 
BAGE COLLECTION”...). 


Le système impose un certain nom- 
bre de contraintes, et tout d'abord au 
niveau du matériel minimum requis 


e un lecteur de disquettes, 

e sur un Apple Il+, il faut avoir 
‘une carte langage d’au moins 
16K. 

e cette carte est incluse dans l'Apple 
{fe, sur lequel a d’ailleurs été dé- 
veloppé ce programme. 


Par ailleurs. le programme EDI- 
TEURPS autorise la modification 
d’un ordre ou d'une commande et 
celle des messages d'erreurs. Cepen- 
dant. on ne peut dépasser la lon- 
gueur totale initiale des ordres, ni 
celle des messages. Si l'on veut rem- 
placer INPUT par DEMANDE, il faut 
réduire un autre ordre (par exemple 
SHLOAD qui ne sert que sur cas- 
sette). En fait. il s’agit d'une restric- 
tion relativement peu contraignante 
car. les ordres devant toujours être 
tapés au clavier, la tendance serait 
plutôt à la contraction qu'au déve- 
loppement ! 


De plus, tous les ordres ”cassette”’ 
peuvent être réduits à un caractère 
(si possible de contrôle du type 
DEL) 

Les messages du SED ne sont pas 
modifiés mais il suffit d'utiliser un 
programme du style SPRECHEN SIE 
DOS paru dans Pom's (ou DOS 
BOSS" par Beagle Brothers), ou de 
s'en inspirer, pour y parvenir. 


Liege ue 75.28.5800 
a HARRIS 


Implantation et struc- 


ture 


Le système Pommesoft se compose 
de plusieurs éléments : 


AMPERPOMME. programme qui 
utilise l'’ampersand (&) et qui permet 
de changer de BASIC. 
PSCREATEUR : utilise la routine de 
S.H.LAM pour mettre dans la carte 
RAM l'Applesoft trouvé en ROM. 
EBITEURPS : édition, modification. 
écriture. sauvegarde du Pommesoft. 

“Pommesoft + Moniteur” 
chargé dans la carte langage. résultat 
des modifications. 


AMPERPOMME 


Il s'agit d'un programme qui a été 
publié dans NIBBLE EXPRESS No 
2, page 143, et qui permet. grâce au 
vecteur &. de créer de nouvelles 
fonctions en assembleur pour le 
BASIC en affectant à chaque lettre 
de l'alphabet l'adresse d'un sous-pro- 
gramme en langage machine Si la 
lettre choisie n’est pas assignée. il y à 
branchement sur SYNERR ($DEC9) 
pour affichage du message SYNTAX 
ERROR. 

La version AMPERPOMME a été 
modifiée. car à l'origine. le BRUN 
impliquait une remise à zéro (vers 
SYNERR). ce qui obligeait à POKEr 
les adresse désirées. La version origi- 
nale comportait en outre un test sur 
"(” pour le passage de paramètres. 
qui, lui aussi. a été supprimé (ce qui 
explique le RTS prématuré et les 
NOP). Sur la liste de désassemblage 
ci-après. on trouve à gauche l'AM- 
PERPOMME et à droite la version 
originale. que l’on peut donc rétablir 
mais avec ‘&A(' en place de “&A": 


0300-A9 4€ LDA #$4C 
0302-89 F5 03 STA $03F5 
0305-49 20 LDA #$20 
0307-80 F6 03 STA $03F6 
0304-A9 03 LDA #$03 
030C-8D F7 03 STA $03F7 
030F-60 RTS A2=LDX 
0310-32 277? 

0311-A9 C9 LDA #$C9 
0313-9D 4B 03 STA $0348,X 
0316-A9 DE LDA H$DE 
0318-9D 4C 03 STA $034C,X 
031B-CA DEX 

031C-CA DEX 

031D-10 F2 BPL $0311 
031F-60 RTS 

0320-8D 7F 03 STA $037F 
0323-20 7D EO JSR $E07D 
0326-B0 03 8CS $0328 
0328-20 C9 DE JSR $DEC9 
0328-20 81 00 JSR $008] 
032E-EA NOP 22=JSR 
032F-EA NOP 88 


0330-EA 
0331-AD 7F 03 
0334-38 
0335-E9 41 
0337-04 
0338-A 
0339-8D 48 03 
0330-80 49 03 
033F-BD 4C 03 
0342-80 44 03 
0345-20 87 00 
0348-40 80 03 


NOP DE 
LDA $037F 
SEC 

SBC #$41 
ASL 

TAX 

LDA $0348,X 
STA $0349 
LDA $034C,X 
STA $0344 
JSR $00B7 
JWP $0380 


ADRESSES PAR LETTRE 
0348-84 03 #430384 À 
034D-C9 DE B=SYNERR B 
D34F-C9 DE 
035f-C9 DE 
0353-C9 DE 
0355-C9 DE 
0357-09 DE 
0559-C9 DE 
0358-C9 DE 
035D-C9 DE 
035F-C9 DE 
0361-09 DE 
0363-C9 DE 
0365-C9 DE 
0367-C9 DE 
0369-80 03 
036B-C9 DE 
036D-C9 DE 
036F-C9 DE 
0371-C9 DE 
0373-C9 DE 
0375-C9 DE 
0377-C9 DE 
0379-09 DE 
0378-C9 DE 
037D-C9 DE 
037F-D0 
ROUTINES POUR À ET P 

0380-8D 8D CO STA $C080 (Carte) 
0383-60 RTS 

0384-8D 82 CO STA $C082 (RU) 
0387-60 RTS 


NDLR : cette routine ne constitue 
certainement pas le moyen le plus 
simple pour n'utiliser que les instruc- 
tions &A et &P. mais nous vous la 
donnons néanmoins en l'état car elle 
pourra vous être utile pour d'autres 
applications. 


P=$038D 


ME XÉE LE AN DOVTOZEPTRS En nmo 


PSCREATEUR 


En utilisant la routine de S HLAM. 
ce programme fait une copie dans la 
RAM de l'Applesoft ROM et du mo- 
niteur. Ensuite, il charge "VOC” qui 
est une version légèrement modifiée 
des tokens Applesoft (tokens cou- 
rants et non utilisés en graphique) et 
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des messages BREAK. REENTER. 
Vous trouverez en:fin d'article la liste 
des tokens de VOC et leurs équiva- 
lents standards. 

Les messages d'erreurs ne peuvent 
pas être chargés de cette manière car 
il faut modifier plusieurs adresses 
dans le code de l'Applesoft. Du fait 
de l'importance de l'Applesoft (42 
secteurs), il est impossible d'en avoir 
une copie entière sur papier. 


Îl est bon de rappeler ici que les mo- 
niteurs de l'Apple Il+ et de l'Apple 
le ne sont pas ident.ques. Nous ver- 
rons plus loin comment créer concrè- 
tement un fichier PS. mais notez de 
suite qu'il est indispensable de faire 
"RUN PSCREATEUR" avant d’'exé- 
cuter EDITEURPS pour une pre- 
mière manipulation sur votre propre 
matériel. 


Structure de la table des 
tokens ($D6D8-$D25F) 


Îl est très facile de modifier cette 
table car tous les mots-clefs sont à la 
suite les uns des autres et l'interpré- 
teur les “repère” par leur dernier ca- 
ractère qui a le bit 8 ’on”. 

Par exemple, END est codé "545 
$4E $C4” et $C4 est égal à 544 (D) 
+ $80. $80 correspondant à 128 en 
décimal (cf EDITEURPS lignes 240 
(lecture) et 3030 (écriture)). 


Les messages d'erreurs sont d'un 
accès différent car l’Applesoft se sert 
du registre X pour pointer sur le 
début du message à écrire. en se dé- 
calant du début de la table des mes- 
sages selon la valeur de X. Il faut 
donc rechercher dans l'Applesoft les 
références à “ERR@R” et donner les 
nouvelles valeurs de décalage (cf 
EDITEURPS lignes 3070 à 3240). 


EDITEURPS 


Ce programme permet de modifier 
les instructions et les messages de 
l'Applesoft. Nous en présenterons les 
fonctions dans l'ordre des menus qui 
vous sont proposés 


Premier menu 


1 - CHARGEMENT DE PS 
2 - SUITE DU PROGRAMME 
3 - SORTIE -> BASIC 


1. chargement de PS et d'AMPER- 
POMME, puis passage au deuxième 
menu. 

2: passage au deuxième menu. 
C'est le choix que vous devez faire 
lors de la création de votre premier 
fichier PS. 

3: fin. 


Deuxième menu 


1 - COMMANDES APPLESOFT 
{modification des instruct ons) 

2 - MESSAGES D'ERREURS (modi- 
fication des messages) 
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3 - SORTIE -> BASIC 


Après le choix des commandes ou 
messages, vous êtes amené au menu 
suivant. 


Troisième menu 


1 - LECTURE EN RAM 
2 - LECTURE EN ROM 
3 - SORTIE -> BASIC 


1: lecture des ordres ou messages 
stockés en RAM. 

2 : lecture des tokens standards en 
DATA lignes 50000 et suivantes) 
Pour une première édition, ce sont 
ceux que vous devez lire puisque, en 
principe, les modifications que vous 
apportez peuvent porter sur l'ensem- 
ble des instructions ou messages (les 
tokens ‘“francisés” de VOC seront 
alors remplacés par vos propres 
adaptations). L'option 1 serait à utili- 
ser ultérieurement pour une édition 
partelle sur un fichier PS déjà enre- 
gistré. ou encore pour ne remplacer 
que certains tokens du fichier VOC 
dès la première édition si la majorité 
d'entre eux vous convient. 


Moi PARLER 
FRANÇAIS . 





Menu général 


1 - VISUALISATION 

2 - MODIFICATION 

3 - ECRITURE 

4 - SAUVEGARDE POMMESOFT 
5 - SORTIE -> BASIC 


1: la visualisation permet de voir les 
tokens modifiés et leurs équivalents 
standards. 

2: les modifications se font dans un 
tableau de chaînes A$(150,1). Atten- 
tion, aucune modification n'est effec- 
tive tant qu'il nv à pas eu écriture 
dans la RAM (option 3). 

Vous pouvez traiter les ordres en sé- 
quence ou les appeler directement 
par leur numéro. Un RETURN à vide 
conserve l’ancienne définition et 
passe à l’item suivant. En cas de mo- 
dification effective. la nouvelle défini- 
tion est répétée, un RETURN la va- 
lide, mais toute autre touche annule 
la modification. 

Le token numéro 40 est très impor- 
tant car il contient un complément 


pour respecter la longueur totale des 
tokens. Ce complément se fait auto- 
matiquement; en cours de modifica- 
tion on peut {il faut) le réduire au mi- 
nimum. 

Pour sortir de l'option “modification” 
avant la fin des tokens. il suffit de 
donner un numéro supérieur au 
nombre d'iterns. 

3. écriture dans la RAM du tableau 
A$ et modification des pointeurs s’il 
s’agit des messages d'erreurs 

d: sauvegarde du contenu de la 
carte sous le nom de PS ATTEN- 
TION . s’il existait une ancienne ver- 
sion de PS, celle-ci est écrasée. Pour 
éviter cela, ne pas oublier de la ‘re- 
nommer” après l'avoir chargée. 


Remarque importante 


Lors d’une modification des ordres. il 
ne faut pas oublier que l'interpréteur 
“regarde” du début de la table vers 
la fin. Aussi ne doit-on pas trouver 
dans un mot une suite de caractères 
équivalente à un autre mot qui lui 
succède. Je m'explique : j'ai eu des 
problèmes à cause de LISTE qui ne 
voulait pas fonctionner comme un 
simple LIST. mais j'avais par ailleurs 
remplacé READ par EIS. Comme 
READ se trouve avant LIST (et donc 
LIS avant LISTE) ma commande 
était interprétée ’READ TE”. ce qui 
me valait un beau message d'erreur ! 
Par contre, les ordres HGR et HGR2 
fonctionnent parfaitement car HGR2 
se trouve placé avant HGR dans la 
table et, de ce fait. est interprété 
avant lui. 

Il faut aussi éviter de réduire certains 
tokens : si l'on remplace TO en A. 
par exemple. la variable A devient 
inutilisable en Pommesoïft. 


Revectoriser le FRE(O) : 
FRE(16)CONFIG 


Ce  pett programme montre 
comment, par l'intermédiaire de la 
RAM, on peut facilement modifier 
l'Applesoit. 

En effet, lorsque la mémoire libre se 
réduit à moins d'un K octets. l'Apple- 
soft procède automatiquement ‘au 
nettoyage”, mais la routine employée 
(FRE(0)) est relativement lente. 
Pom's a repris dans son numéro 2 
un article de Randy Wissinton, paru 
dans Call APPLE. de janvier 
1981. qui proposait une routine de 
nettoyage-mémoire beaucoup plus 
rapide, que nous baptiserons 
FRE{I6) pour la suite. 
FRE(I6)CONFIG charge cette rou- 
tine et modifie l'adresse d'appel au 
FRE dans l’Applesoft en RAM. Il ne 
s'agit là que d'un exemple où la mo- 
dification est assez brutale” et loin 
d'être optmisée, mais les résultats 
sont éloquent : en utilisant le pro- 
gramme ci-dessous le chiffre 100 est 
inscrit au bout d’une minute environ 


HE 


c 
t#ra 

re 
tetn 
tite 
RE 
#4 


au 
WA 
Eu 
14 


IHNSsss 





tes trente pour L Applesoft standard ! 


10 DIM A$(10000) 

20 A$(0) = "ABCDEFG” 

30 FOR J 1 TO 20 AS{J) — 
AS$(0) + STRS (1) + A${0) : NEXT : 
[= 1 + 1 PRINT I: GOTO 30 


Un petit truc en passant _: pour re- 
démarrer un programme BASIC par 
un GOTO (donc sans altérer les va- 
riables), tout en gardant le DOS 
connecté (et éviter lILLEGAL 8I- 
RECT ERROR). il faut taper ‘POKE 
51.128: GOTO XXXXX'" (XXXXX 
étant le numéro de ligne concerné) 
Cela permet, par exemple. de ‘re- 
nommer‘ le programme PS sur dis- 


90 REM PSCREATEUR 
95 RE 





si l'on se trouve en Pommesoft mo- 
difié. alors qu'il faut plus de 2 minu- 


quette et de redémarrer ensuite dans 
EBITEURPS sans rien effacer par un 
POKE 51.128 : GOTO 250 


N.D.L.R. si vous ne possédez pas 
la disquette d'accompagnement de 
ce numéro et si la frappe au clavier 
nest pas votre loisir favori notez 
bien que la saisie du code de VOC 
nest pas indispensable au fonction- 
nement de Pommesoft (vous devrez 
simplement faire une première édi- 
tion de PS sur l'ensemble des tokens 
standards. puisque qu'aucun d'entre 
eux naura été francisé dans la 
RAM1. 

H faut dans ce cas enlever l'instruc- 
tion ‘BLOAD VOC' dans le pro 
gramme PSCREATEUR 


Si vous voulez au contraire. saisir les 
codes hexadécimaux de VOC. vous 
pouvez utiliser la méthode suivante : 


- Supprimer de PSCREATEUR les 
instructions BLOAD VOC’ et 
“BRÜN AMPERPOMME” puis exé- 
cuter le programme ainsi réduit. 
Passer en moniteur par CALL 
—151 et saisir le code de VOC à 
partir de l'adresse $D000. exacte- 
ment comme une récapitulation de 
programme-assembleur 
- Revenir au BASIC par 3D0G et 
taper ‘POKE 49280.0° pour sélec- 
tionner la RAM en lecture. 
- Sauver VOC sur disquette par 
"BSAVE VOC. A$D000, L$260"” et 
taper ensuite ‘POKE 492820" pour 
revenir au langage en ROM. u 


90 REM EDITEURPS 


95 REM 


100 POKE 49281, PEEK (49281) 


100 POKE 49281, PEEK (49281):Y$ = 110 TEXT HOME : PRINT TAB 4)" 
"DOOO<DO00.FFFFM N D9Cé6G": FOR CREATION DE BASIC FRANCAIS": FOKE 
J = 1 TO LEN (Y#$#): POKE 514 + 34,2 
1, ASC € MIDS CYS,1,1)) + 128 120 T = 10: PRINT : VTAB T: PRINT 
: NEXT : POKE 72,0: CALL - 1 "1 - CHARGEMENT DE PS": PRINT 
44: PRINT PRINT CHR$S (4)°B : PRINT "2 - SUITE DU PROGRSM 
LOAD VOC": PRINT CHR$ {4)"BR ME": PRINT : PRINT °3 - SORTI 
UNAMPERPOMME ‘ E -> BASIC"* 


130 PRINT 





: VTABT + 7: PRINT VO 


MODEMS TELSAT 


L' ACCES DE VOTRE MICRO ORDINATEUR AUX BASES DE DONNEES 
PAR LE RESEAU TELEPHONIQUE 


TELSAT 440 


Modem 300 bit/s full duplex 


TELSAT 640 


Modem 600/1200 bit/s full duplex 


Ces produits font partie de la gamme complète de modems, multiplexeurs et 
équipements de réseaux de transmission de données TELSAT distribues par 


SATELCO/ 





LI LA DID. E-S--érértrersméenet 
D 


Tél. 5841475 


international 69-71 rue du CHEVALERET 75013 PARIS 


Telex 284120F 
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132 


135 
136 
150 


160 


165 
170 


180 


190 


200 


210 


220 
230 


240 


250 


260 


TRE CHOIX (2) ":,: 
VAL (R$D:R R x CR < 4): IF 
R = O0 THEN R = 2: IF R$ < > 
CHR$ (13) THEN 1 30 
PRINT R: IF R = 1 THEN PRINT 
: PRINT CHR$ (4)"BLOADPS": PRINT 
CHR$S (4) *BRUNAMPERP@MME " 
IF R = 3 THEN 5000 
PGKE 49283, PEEK (49283) 
X = DX: DIM A$(150,1) ,LL(30):8& 
$ CHR$S (34) :AP 0: HOME : 
T 10: PRINT : VTAB T: PRINT 
"1 — COŒSANDES APPLESOFT': PRINT 
: PRINT "2 —- MESSAGES D’ERREU 
RS": PRINT : PRINT "3 — SORTI 
E —)} BASIC" 
PRINT : UTAB T + 7: PRINT "VS 
TRE CHOIX (1) "3: GET R$:R = 
VAL CRÉDIER = R # CR < 4): IF 
R = 0 THEN R = 1: IF R$ < > 
CHR$ (13) THEN 160 
PRINT R: IFR 3 THEN 5000 
PRINT : VUTAB 2: IF R = 2 THEN 
DX = 0:FX = 16:DY 53856:FY 
53856 + 240: FOR I = 1 TO 107 
: READ A$: NEXT : PRINT TAB 
10)"MESSAGES D'ERREUR." : GOTO 
190 
AP = 1:DX = 0:FX = 106:DY = 53 
456:FY 53855: PRINT TAB 1 
1)" CŒTUANDES BASIC." 
LG = FY — DY:L = 0:X 
CHR$S (34): FOR I 
READ A$(I1,0):L 
$(CI1,0)): NEXT 
HOME :T = 10: PRINT 
PRINT “1 —- LECTURE MESSAGES 
EN RAM": PRINT : PRINT "2 - L 
ECTURE MESSAGES STANDARDS EN 
ROM" : PRINT : PRINT "3 —- SORT 
IE -> BASIC" 
PRINT : VUTAB T + 7: PRINT “VO 
TRE CHOIX (1) ";: GET R$:R = 
VAL CR$D:R R x {R < 4): IF 
R = 0 THEN R=1:1IF R$ < > 
CHR$ (13) THEN 210 
PRINT R: IF R = 3 THEN 5000 
IFR 2 THEN FOR I DX TO 
FX:ASCI,1) = ASCI,0): NEXT : 
250 
X = DX: 
FY:A 


GET R$:R = 


= DX:G$ = 
= DX TO FX: 
L + LEN (À 


: VTAB T: 


GOTO 


PRINT : FOR 1 
PEEK (1): 
X — 1"  "ASCX — 
D5: CALL —- 958: PRINT :AS$(X, 
1) = ASCX,1) + CHR$S (A — 128 
x (À > 127))5X = X + CA > 12 
8): NEXT 
HOME :T 10:H 8: PRINT 
T: PRINT TABC H)°1 - VISUALI 
SATION" : PRINT : PRINT TAB 
H)°2 - MODIFICATION": PRINT : 
PRINT TABC H)°3 - ECRITURE" 
: PRINT : PRINT TAS H)°4 -— 
SALVEGARDE POMMESOFT": PRINT 
: PRINT TABC H)°5 - SORTIE - 
> BASIC" 
PRINT : VTAB TT + 11: 


= DY TO 
UTAB 20: PRINT 
LOS DSi 


: LVTAB 


PRINT TAB 
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270R= - 


1000 


1010 


1020 


1030 


1040 


1045 


1050 


1060 


2000 


2010 


2015 
2020 


2030 


2040 


2050 


2060 


2070 
3000 


3005 


H) "VOTRE CHOIX ";: 
VAL CR#$)D: PRINT R: 
R > S THEN 260 
1: ON VAL CR$) GOTO 10 
00,2000,3000 ,4000,5000 

HOME :T = 10:H = 8: PRINT : UTAB 
T: PRINT TABC H)"1 - TOUT": PRINT 
: PRINT TAB H)"2 - BORNES": 
PRINT : PRINT TAB H)“3 - R 
ETOUR AU MENU GENERAL" 


GET R$:R = 
IFR < 1 OR 


UTAB T + 7: PRINT TABC H)°V 
OTRE CHOIX ";: GET R$: PRINT 

R$: IF R$ < "1" OR R$ > "3" THEN 
1010 

DE = DX:FI = FX: ON VAL CR#&) 


GOTO 1050,1030,250 

PRINT : UTAB T + 9: PRINT 
ALEUR DE DEBUT ("DX:: 
D) : ":R$:DE = 


n° 
INPUT * 
VAL CR$) + DX * 
€ VAL CR$) 0): PRINT : VTAB 
T + 9: PRINT "UALEUR DE DEBUT 

! "DE;" “ 

PRINT : VTAB TT + 11: PRINT " 
VALEUR DE FIN C"FX3: INPUT ") 

5 sRS:FI = VAL CRE) + FX * 
€ VAL CR) = 0): PRINT : VTAB 
T + 11: PRINT "UALEUR DE FIN 
, ani ET LL 

INPUT R$: IF R$ = "x" THEN PRINT 
: PRINT “PR#1" 

INVERSE :C0 = 0:Ci = FOR 

= DE T8 FI1:C0 = CO + LEN « 
ASCI,0)):Ci1 C1 + LEN CAS$(I 
5122: PRINT I: PRINT A${1,0), 
CO: PRINT AS$(I,1),C1: PRINT : 

IF 1 / 5 = INT CI / 5) THEN 

GET R$ 

NEXT : NORMAL : PRINT : 
"FIN DES ELEMENTS" ;: 
: PRINT "PR#HO": 
HOME : PRINT : 
“LONGUEUR *L* 
R + 1! 
T = 10: VTAB 10: 
O (DE "DX" À 


0: 


PRINT 

GET R$: PRINT 
GOTO 1000 

UTAB 5: PRINF 
MAXI"LO:I = 


PRINT "NUMER 
"FX") DEFAUT = * 
1353 INPUT * : "sR$:R = VAL €« 
R$): IF R$ = *" THEN R = 1 

IF R > FX OR R < D THEN 250 
PRINT : UTAB 5: PRINT "LONGU 
EUR ‘;L 

INVERSE : 
ASCR,0): 


PRINT : VTAB 12: PRINT 
PRINT A$CR,1): NORMAL 


INPUT Ré: 
00 

INVERSE : PRINT R#$:;: NORMAL 
: GET T$: IF T$ < > CHR# C1 
3) THEN 2000 
L = L - LEN CA$CR,1)) + 
CRD :ASCR,1) = R$ 

GOTO 2000 

IF LO < L THEN PRINT "ECRIT 
URE IMPOSSIBLE : MAXI < LONGU 
EUR" :;: POKE - 16368,0: GET R 
$: GOTO 250 
A#$(108,1) = “ 


IF R$ = "* THEN 20 


LEN 


| 
NUSLNESNINEDENEANENES 


3010 IF L < LO THEN A$&(40,1) = 


(QE \ 


“ ,LO 


FOR J = 1 TO LEN (A#(X,1)): 
À = 128 x (J = LEN (A#$(X,1)) 
>) + ASC € MIDS (ASCX,1),9,1) 
) 


3040 POKE I ,Â:I = I + 1 

3050 NEXT J: PRINT : VTAB 22: PRINT 
X° “ASIX,1)3;: CALL - 958:X = 
X + 1: IF X = < FX THEN 3030 

3055 IF AP THEN 250 


3060 Ci = 0: FOR X = DX TS FX:Ci = 
LEN CAS(X,1)}:LLEX + 1) 
= Ci: NEXT 


3070 POKE 57034,LL(1) 

3080 POKE 55674,LL(2) 

3090 POKE 57789,LL(3) 

3100 POKE 56488,LL(3) 

3110 POKE 57754,LL(4) 

3120 POKE 59606,LL(5) 

3130 POKE 54289,LL(é6) 

3140 POKE 58485,LL(é) 

3150 POKE 55677,LL(7) 

3160 POKE 57751 ,LL(8) 

3170 POKE 57759,LL(9) 

3180 POKE 60130 ,LL(10)} 

3190 POKE 58124,LL(11) 

3200 POKE Séé95,LL(12) 

3210 POKE 58803,LL (13) 

3220 POKE 58417,LL(14) 

3230 POKE 55449,LL(15) 

3240 POKE 58127,LL(16) 

3250 GOTO 250 

4000 PRINT : PRINT "UN MOMENT S.V 
.P.,.°3: PRINT : PRINT CHR$ « 
4)" BSAVE PS,A$SDO00 ,L$3000°: GOTO 
250 

5000 POKE 49280,0 

9010 TEXT : HOME : END 

10G20 FOR I = 56560 TO SésSéé 

10025 PRINT CHR$ € PEEK (I)) 

10029 NEXT 

10030 FOR I = 56544 TO SéS5é 

10035 PRINT CHR$S « PEEK (13) 

10039 NEXT 

10040 FOR I = 54097 TO 5410: 

10045 PRINT CHR$ € PEEK (ID) 

10049 NEXT 

10050 FOR I = 54105 TO 54106 

10055 PRINT CHR$ € PEEK (1)) 

10059 NEXT 

10060 FOR I = 54110 TO 54114 

10065 PRINT CHR$& < PEEK (1)) 

10069 NEXT 

90000 DATA ‘END°,°FOR","NEXT®,"D 


ATA" ," INPUT *, "DEL" , "DIM" ,*REA 
D°,"GR" ,"TEXT" ,"PR#","IN#" ,"C 
ALL® ,"PLOT" ,"HLIN®, "ULIN®, “HG 
R2","HGR" ,"HCOLOR=" , "HPLOT® ,* 
DRAU" ," XDRAU° ,"HTAB" , "HOME" 
DATA “ROT=" , "SCALE="," SHLOA 
D° , "TRACE" , “NOTRACE" , "NORMAL" 
,*INVERSE" , "FLASH" , “COLOR=" ,* 
POP® ,“UTAB" , "HIMEM:°, “LOMEM: » 
,*ONERR" , "RESUME" , "RECALL" ,°S 


50010 


LEFTS$ 


50020 


50030 


90035 DATA 


950050 


950060 


90 
95 


100 
110 


120 


125 


130 


132 


135 


136 
140 


150 


TORE" ,"SPEED=" ,*LET* 

DATA “GOTO" , "RUN" , "IF" ,"RES 
TORE" ,"&" ,* GOSUB" ," RETURN" ,"R 
EM" ,*STOP® , "ON" ,"WAIT" ,“LOAD* 
, "SAVE" , "DEF" ,"POKE", "PRINT", 
"CONT" ," LIST" ,"CLEAR" , "GET" ," 
NEUW* 

DATA “TAB(","TO" ,"FN°,"SPCX 

° ,°THEN" , AT" , NOT‘ , "STEP" , "+ 
FN NRA Re "AND" "OR, 
°>°,°=","<"," SGN" ,'INT","ABS* 
,"USR" , "FRE" , "SCRNC" , “PDL" ,"P 
OS* 
*SGR" , "RND“ , "LOG" ," 
EXP" , "COS", "SIN" ,"TAN" ,"ATN”, 
*PEEK" ,"LEN" ,"STR$" , "VAL", "AS 
C","CHRS" , "LEFTS" , "RIGHTS", "M 
1D$" 

DATA “NEXT WITHOUT FOR" ,°S 
YNTAX" , “RETURN WITHOUT GOSUB* 
, "OUT OF DATA" 

DATA “ILLEGAL QUANTITY", "OU 
ERFLOW* , “OUT OF MEMORY", *UNDE 
FD STATEMENT" , "BAD SUBSCRIPT 
* ,*REDIM’D ARRAY" , "DIVISION B 
YŸ ZERO" ,"ILLEGAL DIRECT" ,"TYP 
E MISMATCH* , "STRING TOO LONG" 


DATA “FORMULA TOO COPPLEX" 
, " CAN°T CONTINUE", "UNDEF*‘D FU 
NCTION* 


REM  FRE(I16) CONFIG 
REM ============= 


POKE 49281, PEEK (49281) 
TEXT : HOME : PRINT TAB 9)" 
FRE(16) AUTOMATIQUE" 

VTAB 7: PRINT "LE POh#MESOFT D 
OIT ETRE CHARGE SOUS PEINEDE 
PLANTAGE !*: PRINT : PRINT “CC 
E PROGRAMME MODIFIE LA ROUTIN 
E APPLESOFT ‘ GARBAG” 
EN Y METTANT L'ADRES-SE DE FR 
E(16)° 
T = jé: PRINT : VTAB T: PRINT 
°1 — CHARGEMENT DE PS": PRINT 
: PRINT "2 — CONFIGURATION FR 
E(16)": PRINT : PRINT "3 - SO 
RTIE -> BASIC" 

PRINT : VTAB T + 7: PRINT “VO 
TRE CHOIX (2) ";: GET R$:R = 
VAL (RS) x € VAL (RS) < 4): 
R = O0 THEN R= 2: IF R$ < > 

CHR$S (13) THEN 130 

PRINT R: IF R = 1 THEN PRINT 
: PRINT CHR$S (4) "8LOADPS": PRINT 

CHRS$S (4) ° BRUNSMAIPERPGMME" : GOTO 
100 

IF R = 3 THEN POKE 49280,0: TEXT 
: HOME : END 

POKE 49283, PEEK (49283) 

PRINT : PRINT CHR$ (4)°BLOAD 
FRE(16) ,A$927C" 

POKE 58500,76: POKE 58501, 1 24 

: POKE 58502,146 
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RECAPITULATION 
AMPERPOMME 

0300- A9 4C 8D F5 03 A9 20 8D 
0368- F6 03 A9 03 BD F7 03 60 
0310- 32 A9 C9 90 48 D3 A9 DE 
0318- 9D 4C 03 CA CA 10 F2 60 
0328- 8D 7F 03 20 7D EO0 80 03 
0328- 20 C9 DE 20 81 00 EA EA 
0330- EA AD 7F 03 38 E9 41 MA 
0338- A4 BD 48 03 8D 49 03 BD 
0340- 4C D3 8D 4A 03 20 87 DO 
0348- 4C 80 03 84 03 C9 DE C9 
0350- DE C9 DE C9 DE C9 DE C9 
0358- DE C9 DE C9 DE C9 DE C9 
0360- DE C9 DE C9 DE C9 DE C9 
0368- DE 80 03 C9 DE C9 DE C9 
0370- DE C9 DE C9 DE C9 DE C9 
0378- DE C9 DE C9 DE C9 DE 59 
0380- 8D 80 CD 60 8D 82 CO 60 


CODE DE VOC 

D000- 46F DB 65 D7 F8 DC 94 DŸ 
D008- 81 DB 30 F3 D8 OF Ei D8 
D010- BF F3 98 F3 E4 F1 DO F1 
0018- D4 F1 24 F2 31 F2 40 F2 
D020- D7 F3 Ei F3 E8 F6 FD Fé 
D028- 68 F7 6E F7 Eé F7 57 FC 
D030- 20 F7 26 F7 74 F7 6C F2 
D038- 4E F2 72 F2 76 F2 7F F2 
D040- 4E F2 A D9 55 F2 85 F2 
D048- A5 F2 CA F2 17 F3 88 F3 
D050- 9€ F3 61 F2 45 DA 30 D9 


D058- 11 D9 C8 D9 48 D8 F4 03 
D060- 20 D9 6A D9 D8 D9 6D D8 
D068- EB D9 83 E7 C8 D8 AF D8 
D070- 12 E3 7A E7 D4 DA 95 D8 
D078- A4 Dé 69 Dé 9F DB 48 Dé 
D080- 90 E8 23 EC AF E8 DA 00 
D088- DE E2 12 D4 CD OF FF E2 
0090- BD EE AE EF 41 E9 09 EF 
D098- EA EF FI EF 34 F0 9E F0 
00A0- 64 E7 Dé Eë C5 E3 07 E7 
DDAB- E5 Eé 46 Eé SA Eé 86 Ed 
D080- 91 Eë 79 EG E7 79 A9 E7 
D088- 78 81 E9 78 68 EA 7D 96 
D0C0- EE 50 54 DF 46 4E DF 7F 
DOC8- CF EE 7F 97 DE 64 64 DF 
D0D0- 46 49 CE 50 4F 55 D2 53 
DOD8- 55 49 56 41 4E D4 44 4F 
DDEO- 4E 4E 45 45 D3 44 45 4D 
DOE8- 41 4E 44 C5 53 55 DD 44 
D0FO- 49 CD 4C 49 D4 47 D2 54 
00F8- 45 58 54 C5 50 52 A3 49 
D100- 4E A3 43 41 4C CC 50 4C 
D108- 4F D4 48 4C 49 CE 56 4C 
D110- 49 CE 48 47 52 B2 48 47 
D118- D2 48 43 4F 4C 4F 52 8D 
D120- 48 50 4C 4F D4 44 52 41 
D128- D7 58 44 52 41 D7 54 41 
D130- 42 C8 45 43 52 41 CE 52 
D138- 4F 54 80 53 43 41 4C 45 
D140- BD CD 54 52 41 43 C5 59 
D148- 41 53 54 52 41 43 C5 4E 
D150- 4F 52 4D 41 CC 49 4E 56 


TOKENS Standards et Tokens de VOC 


EN TEXT HCOLORS 
FIN TDTE HCDLDR= 
| 10 19 

FÜR PR# HPLOT 
POUR PR HPLOT 
2 11 20 
NEXT IN# DRAU 
SUIUANT | INE DRAY 

3 12 21 
DATA CALL XDRA4 
DONEES | CALL XDRAW 
4 13 22 
INPUT PLOT HTAB 
DEMANDE | PLOT TABH 

$ 14 23 

DEL HLIN HONE 
SUP IN ECRAN 
é 15 24 

DIM VUIN ROT= 
DIM VUIN ROT= 

7 1é 25 
READ HGR2 SCALE= 
UT H6R2 SCALE= 
8 17 26 

6R HGR SHLOAD 
GR HGR 4 

9 .18 2 
Porm's n° 11 


LONEN: | IF LOAD 
EOMEN: | IF 4 

37 46 55 
ONERR RESTORE | SAVE 
SIERR RESTDRE | à 

38 47 36 
RESUME | & DEF 
REPARS | & DEF 
39 48 5? 
RECALL | GOSUB POKE 
4 GOSUB POKE 
40 49 38 
STORE RETURN | PRINT 
4 RETURN | ECRIS 
41 50 59 
SPEED= | REN CONF 
VIT= REN CONT 
42 si 60 
LET STOP LIST 
SOIT STOP LISTE 
4 52 él 
60TD îN CLEAR 
VAS-EN | SELON EFFACE 
44 53 62 


RUN WIT GET 
RUN WAIT GET 
45 54 43 


D158- 45 52 53 CS 46 4C 41 53 
D160- C8 43 4F 4C 4F 52 BD 59 
D168- 4F DO 54 41 42 Dé 48 49 
D170- 4D 45 4D BA 4C 4F 4D 45 
D178- 4D BA 53 49 45 52 D2 52 
D189- 45 % 41 52 03 40 20 2 
D188- 26 AC CO 56 49 54 BD 53 
D190- 4F 49 D4 56 41 53 2D 45 
D198- CE 52 55 CE 49 Cé 52 45 
DSA0- 53 54 4F 52 CS A6 47 4F 
DIA8- 53 55 C2 52 45 54 55 52 
D180- CE 52 45 CD 53 54 4F DO 
D188- 53 45 4C 4F CE 57 41 49 
DiC0- D4 CO CO 44 45 Cé 50 4F 
DIC8- 48 CS 45 43 52 49 D3 43 
D100- 4F 4E D4 4C 49 53 54 CS 
DID8- 45 46 46 41 43 C5 47 45 
DSE0- D4 4E 45 D7 54 41 42 A8 
DIE8- 56 45 52 D3 46 CE 45 53 
D1F0- 50 AB 41 4C 4F 52 D3 41 
DIF8- 04 4E 4F CE 50 41 D3 AB 
D200- A0 AA AF DE 45 D4 4F 05 
D208- 8E BD 8C 53 47 CE 45 4E 
D210- D4 41 42 D3 55 53 D2 4é 
D218- 52 C5 45 43 52 A8 50 44 
D220- CC 50 4F D3 52 41 C3 48 
D228- 41 DA 40 4F C7 45 58 DO 
D230- 43 4F D3 53 49 CE 54 41 
D238- CE 41 54 CE 58 45 45 £B 
D240- 4C 4F CE 43 48 A4 56 41 
D248- CC 41 53 C3 43 41 52 A4 
D250- 47 41 55 A4 44 52 4F A4 
D258- 4D 49 4C 44 49 44 A4 00 


4 { SoR LEN 
+ { RAC LON 
73 82 91 100 
* SEN RNO STR$ 
- SE Haz CHs 
74 83 92 101 
5 INT LOG Val 
3 EN LD6 VAL 
75 84 93 102 
/ aës EXP ASC 
/ as EXP ASC 
76 85 94 103 
. USR cos CHRS 
USR cos CARS 
77 86 95 104 
AN FRE SIN 
ET FRE SIN GAUS 
78 87 36 105 
OR SCRN( TAN 
OU ECRC TAN DRoS 
79 88 97 106 
) POL AN M1D$ 
) PDL ATN MIL$ 
80 89 98 
= POS PEEK 
= PIS PEEK 
gl 90 39 
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TOUTE LA BOURSE SUR L ECRAN 
DE VOTRE ORDINATEUR PERSONNEL 
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e Cotations de 100 bourses dans 40 pays 

e Gestionnaire de portefeuilles 

e Lettres de Conseils ponctuels 

e Documentation complète sur les sociétés 
e Passage d'ordres par la messagerie 


e et, bien entendu, tous les autres services 
Calvados 


Documentation gratuite sur demande 


Boîte Postale 21-07 75327 Paris Cédex 07 
Tél. : (1) 705.09.04 





Pom's n 11 





02100S1.Quentin 
02200 Soissons 
03208 Vichy 
96090 Nice 
06089 Nice 
06089 Nice 
96009 ’\ice 
06080 Nice 

06150 Cannes L Boca 
U6a80 Cannes 

06600 Anctbes 
06700 St-Laurent-du- V'at 
06700 Sr.Laurent-fu. Var 
11000 Narbonne 

B065 Macseille 

13 006 Marseille 

1006 Marseille 

B@&% Marseille 

13007 Marseille 
B008Marsuille 

008 Marseille 

13090 Aix-en-Provence: 
13100 Aix-en-Provence 
13127 Vucolles 

1200 Arles 

13231 Marseille 
14300Caet 

14490 1e Tronguay 
16000 Angoulénu: 
20121 Fetney- Voltaire 
21000 Dijon 

21000 Bijon 
21000Dilun 

24001 Périgueux Cédex 
25000 Besançon 

25060 Montbcliary 
26590 Bourg.les-V'aletice 
28000 Chartres 

29000 Quimper 

29080 Quimper 

30800 Nimes 

30000 Nimes 
30/20Ale 

31000 Toulouse 

31000 Toukute 

31000 Touloust: 

33081 Meriadeck Bordeaux CédUx 
24000 Mouljallier 
32030 Valeurs 

55000 Rennes 

35000 Rennurs: 

3510 Rennes 

32000 Tüurs 

37000 Tuurs 

37008 Touis 
37000Tvurs 

381(0 Grenuble 

38108 Grenoble 





39100 Bole 

40100Dax 

OU Nantes 

4500 @rléans 

45000 Orléans 

45080 @rlans 

49000 Angers 

51100 Reutrs 

53000 Laval 

54000 Nat 

54000 Xaucy’ 

54404 Lungn yCéde x 
34520 Laxun 

56000 Vannes 

57000 Met 

33000 Metz 

52110Yurz 

57800 Frevming Merlebuch 
59000 Lille 

59080 Lille 

59150 Watirelos 

59300 Valenciennes 
59760Marcq en Baræul 
59800 Lille 

59800Lille 

60100 Creil 

60108Creil 

61060 Aleñçon 

62000 Arras 

62200 Boulegne-sur-Mut 
63008 Clermone-Ferrand Céde'x 
63014 Clermont-Ferrand Cédex 


Pom's n° 11 





SERVICE 





LE RESEAU MICROINFORMATIQUE —— 


COGCNET 

SOFIC 

03 INFORMATIQUE 

DSA INFORMATIQUE 

FNAC NICE 

MCS 

MICRO-MEDIA 

SORBONNE INFORMATIQUE 
ONDE MARITIME 
SIVEACANNES 

ESPACE INFORMATIQUE 
COMPUTERLAND MOS 
NOUVELLES GALERIES POINT MICRO 
R2] INFORMATIQUE 

ELP INFORMATIQUE 
COMPUTERLAND CPE 
ELECTRONICSERVICE COMPUTER 
INTERNATIONAL COMPUTER )3 
PROVENCE SYSTEM 
MEDIATEC 

MICROMAG 

SOPROGA 

ECO INFORMATIQUE AIX 
FEEDER 

LUDO 

FNAC MARSEILLE 
COMPUTERLANDCAEN 
NORMANDIE INFORMATIQUE 
L'HOMME 

CiP 

LASOHIKOR 

OMG 

SETTEM 

MbBI 

VAGNEUX S.A, 

MICRO ALPHA SOFT 

ECA ELECTRONIQUE 

Bt INFO 

ELA BOUTIQUE INFORMATIQUE 
MATRICE DEVELOPPEMENT 
ELECTRONIQUE TELE INFORMATIQUE 
MICRONIM 

ARCOMEi 

BUREAUMATIQUE 
FNACTOULOUSE 

SOUBIRON 

SIVEA BORDEAUX 

MICRO 34 

CEBEA 

COMPUTERLAND BRETAGNE 
X-MATIC 

DELTA MICRODIN 

AREL 

BOUTININFORMATIC 

POLY SOFT 

SELECTRON 

FNACGRENOB:iE 

GAMMA INFORMATIQUE 


Mme. Metrs 
Mme Jullen 
M Rathueville 


21, rue Victor Basch 
10.hlacedu Laon 
7, rue Voltaire 


M Mouchort 5. Bd. Dubeuchage 
M.Couvreur 24. av. Jean Médecin 
M Abitbol 7. rue Banie 
27. rue Delille 
M Seyral 40, rue Givtfredo 
28. Bd. du Midi 
M Corniflon 14 Bd. de La République 
Mining. 1.Chemin S1.Cloud 
M Ragezzi A1. Léon Béranger 
M Guibert C.C.Cap 2000 
Mnie. Perdriol 5, quai Valilère 
M Bocognano 20. rue Hugueny 
M.Giacobetti 1.av. deCorinthe 
M. Michekn 39. cours Licuraud 
64, av. du Prado 
M. Muriglià 74, rue Sainrc/Le Saint-Jamcs 
M. Bouchoux 485, 4v. du Prado 
M Bewavrin C.C. Mermoz/l11. 0 J, Mermoz 
Av. de l'Europe/Les Facultés B 
M. Barenial Résid, Sextus/Bd, Vicur Cousin 
M. Gauthron Bastide Blanche RN 113 
M. Devred 27, rue de La République 
Cenire Bourse 
M. Dessertcaux 12, ruc St.-Plerre 
M Cheval Késidence La Tuilerie 
M. Lhomime 186, roue de Bordeaux 
M. Sictitniaar 43 bis, av, duJura 
M. Bikar 7, rue Monge 
M, Laurent 20, rue Michelet 
M. karbier 36, vue Jeannin 
M, Parinet 4, av. d'Aquitaine BP. 92 
M.Joly 58 ter, Faubourg Rivotte 
M Ravey IL Imbaëse du Laque't 
M Pons 22, Thannaron 
M Cabouro 58, rue Grand Faubourg 
M Lemuetle C.C. Rallve-Routede Benodet 
M Malé à, Venellede Kergus 
M Aguilia 58, rue Pierre Semard 
M. Belaicie 10, rw de la Trésorerie 
M. Rañin 8 bis, rue Misirai 
M. Tissot 4, Promenade des Capiteuls 
M. Claustre 1 bis Promenade des Capirouls 
MSnubisun 9, rue Kenncdy 
M. Livgeois Ruedu Curps Franc Pommes 
M. David 7 Cours Gamberta 
M Depeÿroux RameNatisnale 113 
M Cadur D. av du Mail 
M. Hardy lél, av. du GL Parton 
M. Preuvecille 4. place Bretagne 
M Brossard 8, allée du Manoir 
M Bounin 36, rie Marceau 
M Caoudal 67, rue Michel Colombe 
M Cain 15, ruc de Jérusalem 
M Barbera 3 Grande Place 
M Bragagholu 9 Cours de ia Libérarion 


Ces concessionnaires 


APPLE 


sont abonnés à CALVADOS. 
Demandez-leur une démonstration! 


GERMOND 

PLI 

SIVEA-NANTES 

AGO 

AMC 

EUROPE ORDINATEUR 
INFORMATIQUE SERVICE 
ORGANIGRAMME 

SLAD INFORMATIQUE 
PRECILAB 

VLASTOSJEAN 

RANDOM 

SEMITEC 

L'ORDINATEUR 56 
FNACMETYZ 

LA MICRO BOUTIQUE-ECONOMAISON 
MICROSERVICE 

CMI 

FNAC LILLE 

SIVEA LILLE 
RY'OCATTEAU 
MICROMEGA 
MICRODAT A INTERNATIONAL. NORD 
MBDC 

PAMP MICRO INFORMATIC 
HAPEL 

QUENEUTTE 

TEMPS X 

SICORFE 

DIF ELECTRONIQUE 
NEYRIAL INFORMATIQUE 
FLAGELECTRIC 


£ 


EXEZLLEXEREX 


M. 


M. Deipierre/M, Recourt 


M 
M. 


ZZERXZE EExxEz 


Germond 


Bachelier 
AUHUN 
Callier 
Pouysegur 
Fortier 
Coulant 
LeGrand 
Bonnechere 


. Ylastos 


Leintz 
Faber 


Hochard 

Le Besnerais 
Siurzruann 
Becker 
Mortier 
Boisse 


Merchel 
Willianwon 
Bayart 
Paris 
Haenijens 
Queneutte 
Cowrreau 


Hagncre 
Neyrial 


M.Areïte- 


12,av. Eisenhosver 

9. Cours Pasteur 

21, Bd. Gabriel Guisih' au 
43. Bd. Alexandre Martin 
13, rue des Murimes 
22.84. Alexandre Mach 
42. rue Parcheminerie 

lé, ruc Ercule Zola 

10, rue du Val de Mayenne 
96, ruc Stanislas 
143,rucSgt Blandon 

18, rue Mercy/BP 410 

69. rue de Mareville 
38.Bd.delaPaix 

14, rne Téxe d'Or 

3.ruce Paul Bezanson 

2 ouvre de Thionville 

3, place de la Gare 

9, place du Général de Gautle 
21 bis ruede Valmy 

13. rue Edouard Vaillant 
38, rue de Famars 

920. a de la République 
122, eue Sol'erino 

5, rue de Pas 

2 bis, av. de l'Europe 

22 Bd. dela République 
42, ruede Latirede Tassigny 
18 bis, rue Lamartine 

71, medu Campde Proite 
3 cou:s Sablon 

21 du Brezet. 142. av, J, Mermuz 


(23562.72,89 
(23)55.71.47 
(70)31.74.80 
193285.15.96 
193}92.69.89 
193}96.5055 
193285.28.66 
19325817.55 
(1932474430 
(9333929 09 
1937a78.01 
(93307.63 12 
193)31.24.40 
{68}65_15.83 
(9194.91.13 
{91378.0202 
(91142.99.42 
(9137.25.03 
(9133.23.33 
(90714545 
(9071.79.13 
(42)61.12.43 
(42)27.11 48 


(90 96.7903 
{91291.30.62 
(31)85.62.48 
(31392.56.09 
(45)95.27.37 
{50)40.62.34 
(89)30.05:.70 
(80)30.12.70 
(80)66.16.4)3 
{53)53.44.28 
(818 L12.56 
(8197.1646 
(75)42.68.38 
(37)21.74.5 
198:53.33.88 
198)55.75.93 
{6623602.52 
(66)21.08.91 
“66)26.65.62 
{611218 7.27 
«61231108 
{61)21.64.39 
156)96.28.11 
(67)92.91.23 
167)86.75.75 
(99544712 
(99338.31.80 
(9930.65 18 
(47)646993 
(47)20.51.83 
(47)46.66.49 
(47}20.80.70 
(76994663 
(76)96.36.05 


(84)72.49.11 


(40)47.53.09 
G8)5445.0 
68)62.62.58 
(8)5403.15 
{41388.47.06 
(26)88.51.13 
(43349.25.45 
(83337.06.78 
18)341.26.26 
18)224.80.41 
(8)340.4338 
197)42.52.20 
(8)7361622 
(83775 41.56 


(8)781.14.89 
129)30.72,30 
{20)57.88.43 
(20)75.92.23 
(27)42.30.30 
(20)98.60.06 
(20)57.91.87 
(20)54.62.22 
{4)453.03.30 
(4)425.04.26 
(33)26.7998 
(21)23.08.56 
(21130.75.68 
(739289,50 
(73192.13.46 


suite page suivante >>> 
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64000 Pau 

64100 Bayonne 
67000 Strasbeurg 
67000Strasboirg 
67000 Stirasboucg 


68000 Celmar 
6800 Colmar 
68200 Mulhouse 
69002 Lyon 
69083 Lyon 
65003 Lyon 
69004 Lyon 
69906 Lyon 
69086 Lyon 
69087 Lyon 
71800 Macen 
72088 LeMans 
72800 Le Mans 
72060 Le Mans 


74102 Annemasse 
7500) Paris 
7500] Paris 
75005 Pa:is 
75007 Paris 
75007 Paris 
75008 Paris 
75008 Paris 
75008 Paris 
75008 Paris 
75008 Paris 
75008 Paris 
75008 Paris 
75009 Paris 
75009 Paris 
75009 Paris 
75009 Paris 
75609 Paris 
75010 Paris 
75010 Paris 
7581) Paris 
7501] Paris 
75012 Paris 
75012 Paris 
75013 Paris 
75014 Paris 
75015 Paris 
75045: Paris 
75015 Paris 
75015 Paris 
75015 Paris 
75015 Paris 
75015 Paris 
75015 Paris 
75016Paris 
75016 Paris 
75017 Paris 
75017 Paris 
75017 Paris 
75017 Paris 
76000 Rouen 
76000 Rottk'n 
76200 Biepp£ 
78000 \V'ersailles 


78117 Chatcauforr 
78]90Ttapjrès 
80000AmJens 

80000 Amiens 

84000 A‘'ignon 

8508 La Roche-sur-Yon 


86868 Poitiers 

870€ Limoges 
90080 Beliert 

*1600 Eur 

91708 Stc..-Gencvière 


92126 Montrouge 


92200 Neuüly-sur.Seine 
92600 Asnières 

92800 Puivaux 

94160 St.Mande* 
95200$arcelles 


97200 Fortde France 
97209 Font de Frence 


23000 Monacu 
Maroc Casablanca 


67200 Strasbourg-Keenigshoff er) 


74600 Cran Gevrier Annecy 


78100 St-Gcrmain-en-Lave 


85105 Les Sahies d'@ionrae 


92086 Paris La Défense Cédex 
22108 Boulogne Billancourt 


92130 (ssy-les-Moulincaux 


95526 Cergy Pontolse Cédex 


97400 St-Denis de la Réunion 











OBBO ADOUR 

LE CALCUL INTEGRAL 
CILEC 
FNACSTRASBOURG 
MICRO-MAT 

WALZ INFORMATIQUE 
EDSJLVOGE® 
FNACCOLMAR 
FNACMULHOUSE 
TERTIAL 

ALPHA SYSTEMES 

BIMP 

AB INFORMATIQUE 
ALTI INFORMATIQUE 
ECO INFORMATIQUE 
FNAC LYON 

CLINIQUE ELECTRONIQUE 
AESCULAPPLE 

ASCI 

OMB LE MANS 

SIGEA 

DSA MICRO 
FNACFORUM 
NASASEBASTOPOL 
NASA MONGE 

MYI 

NASA CEMP 

AME 

EUROPE COMPUTER SYSTEMS 
FNACETOÿLE 

INTERSIS 

ORDINATEUR INDIVIDUEL AFFAIRE 
POINT MICRO LA BOETIE 
SIVEA 

COMPUTERLAND MOS 75 
JCR ELECTRONIQUE 

LPS 

NASA CEDL 

SAVEMO 

HELLO 

SOFT MACHINE 

MiD 

NASA SER 

ELLIX 

GMS 

NASACEDM 

NASA MONTELEC 

HI FI MADISON 

iEF 


MICRO ASSISTANCE 

NASA DECOM 

SIDEG 

ANTIGONE 

MICRODATA MDI 
BSCINFORMATIC 

GAMIC 

NASA GAD 

RANDOM PARIS 

ESPACE TEMPS REEL 
GUEZOULJINFORMATIQUE 
ELECTRODOM 

MICRORAMI] 

ORDI GESTION 
AVIRADIOAR INFORMATIQUE 
PROBE INFORMATIQUE 
BUROTEC 

LOGIC 

SYNERGIE INFO 
OMICRONINFORMATIQUE 
IDEES INFORMATIQUES 
LISTE INFORMATIQUE 
MICROLIM 

FNAC BELFORT 

NASA SDESP 
NASAGENELEC 

POINT MICRO LA DEFENSE 
MINIGRAPH MICRO INFORMATIQUE 
SERAP MICRO INFORMATIQUE 
AGI 

IMATIC 

NASA ADE 

GEMINI INFORMATIQUE 
MICRODATAST-MANDE 
MICROKEY95 
ORGAMATIQUE 

POINT MICRO MARTINIQUE 
MICROTRAITEMENT 
MICROSYSTEMES SERVICES 
MICROTEK 

AMERICAN MICRO COMPUTERS 


E 


LERZZZZZZ ZEXE 


SERVICE CALVADOS 


—L£ RESEAU MICRO INFORMA 






Zebrowski 
George 
Martin 


-Rivet 


Jung 
Vogel 


Barrcmlin 
Houot 
Barre 
Chasiaing 
ASensio 
Combet 


Thierry 
Bouquet/M Damiani 
Busnarcl 
Muzelle 


- Coudrcesc 


Polller 


- Domenjoz 


Maisonnare 


Roland 

Vernet 

Singer 

Bonnigal 

Lemolne/M. Guyunncau 
Flandin 

Lallemärtd 

Hacacli 

Anglade 


. Clienucrck/M Bettiche 


Giannetti 
Taler/\1, Parttassoi 
Sukolski 


\Y'anfletcren 
Moreno 
Leconie 
Lamarce 


Bauxet 
Laine 


Gaillard 


Dcben 
Petit 
Raëic:T 
kicul 
RaQt 


Mone. Lebail/M Pesszer 
Mme. Muller 


M. 


M 
M 


Perche 
Smadje 
Gaivre: 
Sinker 
Cxntz 
Auriau 
Guc-raull 
Lequerc 
Ghvsclin 
Detic 
Blassart 


Mme. Laporte 


M 


AT 


M 


HE 


M 


Lecaille MA Dubore 
Nasarcc 

lller 

Cluuteau 

Bouat 


Mme Alman 


Ml 


M 
M 
M 
M 


NS 
“1 
M 
“1 
M 


Kachamiere 


Gotman/wi. Vilotte 
Orsini 

Pacart/'4. Benmaor 
Nouatlhiäc 


Martin 
Perchk 
Cherry 
Potier 
Gallei deSt-Aurin 


Mme de Revnal 


M 
M 
M 


Lebon 
Hanoutse 
Hauxni 


14 Bd Alsace Lorraine 
30. Bd_Alsace Lerraine-St.Ésprlt 
13 Quai Si..Nicolas 
22,blace Kléber 

30. rueGeiler 

89 A Routc des Romains 
8. rue Fischatt 

1 Grande Rue 

L place Franklin 

19. rue Gentil 
34. av. Marv'chôl de Saxe 
20.rue Servient 

18. rue Paslleron 

67, rue Vendôme 

50 cours Vliton 

62.av' de Ja Répuhlique 
36%, ruede Paris 

4, mede Richebowg 

115. rue Nationale 

42, ne Einstein 

34,ax de la République 
15, rue Adrien Ligue 

1. rue Pierre Lescot 

31, Ed. de Sébastogel 

97, rue Monge 

27, rue Vanneau 

28. av de la Motte Piquet 
172, Bd. Haussmann 

lé. rue Washington 

26. av. de Wagram 

2, rue Beru 

30. rue Cambaceres 
l6.ruedela Beérie 

3. rte de Turin 

&. ru Bleu: 

58. n° Notre Bame de Loreuc 
46. rue Laffite 

45. uv Caumarin 

36, rue Laflite 

1 rut de Meiz 

&3L, Bd. de Magenta 
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Pom'sn°11 


Comparaison de deux programmes 
en langage machine 


Voici un utilitaire spécifique et rapide 
pour comparer deux versions dun 
programme en langage machine 
{code hexadécimal). afin d’en identi- 
fier la plus récente ou de vérifier 
leurs différences 


Lorsque l’on a rentré le code de 
BC@MP. où qu'on l'a chargé par un 
BL@AD à partir de la disquette d'ac- 
compagnement de ce numéro de 
Pom's. il faut l'exécuter une première 
fois par un ‘CALL 2061” avant sa 
sauvegarde (on appuie sur RETURN 
à la question ‘nom du programme” 
pour le stopper). On peut ensuite 
faire ‘SAVE BCOMP® et ‘RUN 
BCOMP” pour l'utiliser... J'ai bien dit 
"SAVE" et non ‘BSAVE” car. après 
ce premier CALL 2061. la routine se 
manipule comme un programme Ap- 
plesoft. 


L'explication de ce mystère tient à ce 
que les codes hexadécimaux qui fi- 
gurent en tête de la routine sont la 
représentation-mémoire de la ligne 
Applesoft “10 CALL 2061”. Lors de 
l'exécution. la position FPROG (fin 
de la routine) est stockée aux adres- 
ses 175-176 (pointeur de fin d'un 
programme Applesoft} et les trois 
derniers octets sont bien des CO. 
comme pour les programmes Apple- 
soft 

Vous pouvez transposer directement 
cette petite astuce pour nimporte 
quel programme en langage machine 
dont l'origine est à l'adresse 2048 
($800): elle simplifie notamment le 
transfert des routines d'une disquette 
sur une autre 


C'est le même progromme 


Pour en revenir au vif du sujet. la 
routine charge les deux versions du 
programme à comparer à partir de 
l'adresse $1000 et compare chaque 
octet en se basant sur la longueur de 
la première version chargée. L'affi- 
chage des différences assure la 
conversion des adresses où elles se 
situent sur la base de l'adresse de 
départ normale du programme qui 
vous est demandée (en décimal posi- 
tif) en début de traitement 

Le nombre de différences est indiqué 
en fin de comparaison et vous pou- 
vez renouveler cette dernière sans 
charger les programmes en tapant 
"CAËL 2064" 


Pour imprimer les résultats. vous 
pouvez utiliser la procédure sui- 
vante : 


Denis Sureau 


Je diras même ples : 
C'est le même Pregrerime . 





e Exécuter une 
BCOMP 

e CALL -151 

PR#s (où s désigne le slot de f'im- 


primante) 
e 8BDG 


Les commentaires du programme 
source précisent le but de chaque 
procédure. Les adresses $6-$7 et $8- 
$9 pointent respectivement sur la po- 
sition courante dans chaque version 
Une routine unique permet le char- 
gement des deux versions en aiqguil- 
lant sur chaque champ de stockage 
des noms réduits à 10 caractères en 
fonction du numéro de version 
donné par PRGNUM ($A1A)}. 

La taille des programmes comparés 
ne doit pas dépasser 16K 


première fois 





Programme BCOMP 
Assembleur BIG MAC 


17 INELIN2 
18 FRMEVL 
19 CRDO 
20 GETADR 
21 + 

22 CTRL 
23 CTRH 
24 ADRL 
25 ADRH 


27 ORG 


# NUE 


1:55 BCOMP 

2 *# 

3 * CC) D. SUREAU 

4 * (C) 1983 POM’S 

es] 

6 * 

7 COUT = $FDED 
8 MAXI = $0008 
3 GETLN = $FDéF 
10 LINPRT = $ED24 
11 PRNTAX = $F?41 
12 PRBENK = $r948 
13 PR8YTE = $FODA 
14 STORADU = $FBSFO 
15 HOME = $FCS8 
16 TXTPTR = $00B8 
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34 INTRO LDA 


$DS2E 
$DD67 
$DAFB 
$E792 


$0018 
$0019 
$001A 
$001B 


$800 


000B08040080C32 
303631000000 
INTRO 

START 

#FPROG 

175 





36 LDA #)FPROG 72 STA MAXI+I 


37 STA 176 73 
38 JSR $3EA 4 
39 JSR HOME 75 *# CHARG PROGR 2 = 
40 JSR  ECRIT MORTE ETES Enr 
41 HEX  8D8D8D00 Ltd 
42 LDA #5 78 CHARGE2 LDA +#"2° 
43 STA $20 79 JSR BLOADRTN 
44 JSR  CRDO 80 
45 JSR TRAIT BIT SSSR 
46 JSR ECRIT 82 *x LECTURE ADRESSE — 
47 IW * BCOMP -— D. SUREAU * BST ESS 
48 INU  "(C) 1983 * 84 
49 HEX  8D00 85 JSR ECRIT 
90 JSR TRAIT 86 ASC "ADRESSE NORMALE : * 
Si LDA #0 87 BRK 
92 STA $20 88 
93 JSR CRDO 89 x ENTREE D'UN NOMBRE PAR INPUT 
54 90 * ET TRANSFERT EN $950-591 
DJ MES re 91 
96 *CHARG PROGR 1 - 92 JSR $FD6F 
37 93 TXA 
58 74 BEQ  INNUL 
59 CHARGE LDA #H*1" 95 JSR +$D539 
60 JSR BLORDRTN 96 LDA #0 
61 97 STA TXTPTR 
GAMERS EEE 98 LDA #02 
63 * CALCUL FIN PROGR - 99 STA 1XTPFR+1 
s 64 100 JSR  FRMEUL 
- 65 101 JSR GETADR 
66 CLC 102 LDA +$50 
67 LDA 43634 103 STA ADRL 
68 ADC 43616 104 LDA $51 
69 STA MAXI 105 STA  ADRH 
70 LDA 43635 106 JSR  CRDO 
71 ADC 43617 107 JMP__ START 














LA PHOTOCOMPOSITION EN PROLONGEMENT DE LA MICRO-INFORMATIQUE 


TRANSMETTEZ-NOUS VOS TEXTES 
PAR TÉLÉPHONE TT — 
ou O 
DONNEZ-NOUS VOTRE DISQUETTE 0 


\ Les textes de vos articles, catalogues, annuaires ou brochures 
| saisis sur votre APPLE sont envoyes directement sur notre photocom- 
poseuse. 


Nous vous éVitons ainsi, le coût et le temps de la saisie supplé- 
mentaire que nécessite le traitement traditionr'el de la photocompo- 
sition avant l'impression des documents, si vous le désirez nous pou- 
vons egalement nous charger de l'impression et du brochage. 


ESS = É 
THECOMPO 361065 
à Are _ ==. 
| NOTRE REFERENCE... LA REVUE POMS É<sss 


RE ris ; FICHIERS 
BUREAU a Ter 
TRANSMISSION DE DONNEES MATEMENT DE TEXTES an VINCENNES 
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108 
109 *x PAR DEFAUT L’ADRESSE EST $1000 
110 


111 INNUL LDA #0 

112 STA ADRL 

113 LDA ##10 

114 STA  ADRH 

115 

116 M 
117 * INITIALISATION - 
118 #0 
119 

120 START LDA #0 

121 STA CTRL 

122 STA CTRH 

123 JSR ENTETE 
124 LDA #0 

125 STA $6 

126 STA #8 

127 LDA H#10 

128 STA #7 

129 LDA  ##50 

130 STA $9 

131 

132 4 
133 *% COMPARAISON - 
134 #--———— 
135 

136 LDY #0 

137 COMPARE LDA $é6 

138 CP. MAXI 

139 BNE  COH4PAR2 
140 LDA #7 

141 C4P  MAXI+1 
142 BCS RECAP 
143 COMPAR2Z LDA ($6),Y 
144 CMP ($8),Y 
145 BEQ  INCCOMP 
i46 

147 x AFFICHE L’ADRESSE (NORMALE) 
148 * OU UNE DIFFERENCE EST VUE 
149 x ET L’OCTET DANS LES DEUX 
150 * VERSIONS DU PROGRAMME 
151 

152 DIFFRTN LDA $25 

153 CMP #21 

154 BCC AFFDIF 
155 JSR  APPUYEZ 
156 JSR ENTEÈTE 
157 


158 * AFFICHAGE DE L’ADRESSE 
159 
160 AFFDIF LDA #°$" 


1é1 JSR COUT 
162 LDA  ADRL 
163 CLC 

164 ADC $é 

165 TAX 

téé LDA  ADRH 
167 ADC $7 

168 SEC 

169 SBC ##$10 
170 PHA 

171 JSR  PRNTAX 
172 INC $24 
173 PLA 

174 JSR LINPRT 
175 JSR  PRBLNK 
176 


177 *# AFFICHAGE DES OCTETS DIFFERENTS 
178 


179 LODY #0 
180 LDA ($6),Y 
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181 

182 
183 
184 
185 
186 
187 
188 
189 
190 
191 

192 
193 
194 
195 
196 
197 
198 
199 
200 
201 

202 
203 
204 
205 
206 
207 
208 
209 
210 
211 

212 
213 
214 
215 
21é 
217 
218 
219 
220 
221 

222 
223 
224 
225 
226 
227 
228 
229 
230 
231 

232 
233 
234 
235 
236 
237 
238 
239 
240 
241 

242 
243 
244 
245 
246 
247 
248 
249 
250 
251 

252 
253 


JSR PRBYTE 
LD£ #24 
STA $24 
LDA <$B),Y 
JSR  PRBYTE 
JSR CRDO 


* DECOMPTE DES DIFFERENCES 


INC CTRL 
LD CTRL 
BNE  INCCOI4P 
INC  CTRH 


*# POSITION SUIVANTE 


INCCOMP INC #æé 


PRE | 


INC #8 
LDA %é 
BNE COMPARE 
INC #7 
INC #9 
BNE COMPARE FF 
& ;e 
* RECAP - "2 
2 mn ——s— 
* AFFICHE LE NOMBRE DE 
* DIFFERENCES TROUVEES 
RECAP  JSR CRDO 
LDA #25 
CHP #21 
BCC RECAP2 
JSR  APPUYEZ 
JSR HOME 
RECAP2  LDA CTRH 
LDX CTRL 
JSR LINPRT 
JSR ECRIT 
ASC " DIFFERENCE" 
HEX 00 
LDA  CTRH 
GNE PLURIEL 
LDA CTRL 
CMP #02 
BCC EXIT 
PLURIEL LDA #°S" 
JSR  COUI 
EXIT JMP _$3D0 
D RP ER EL ER CR CN ENT SUPER ET NE 
# ROUTINES DIVERSES- 
ME ES ER A 
ECRIT PLA 
STA $0 
PLA 
STA #1 
LOY #00 
EC2 INC $0 
BNE  EC3 
INC #1 
EC3 LDA ($0),Y 
BEG EC4 
JSR COUT 
JMP  EC2 
ECA LDA #1 
PHA 
LDA $0 
PHA 
RE 


35 


RE | 


36 


254 RTS 314 INPBCL LDR $IFF,X 

255 315 STA NOM-1,X 

256 *x EN-TETE 31é DEX 

257 317 BNE  INPBCL 

258 ENTETE JSR ECRIT 318 

259 ASC  " ADRESSE é: 319 * EFFACEMENT DES 2ONES RESERUVEES 

260 NCMI HEX  ADADAOADA0 320 * AUX NOMS DES 2 PROGRAMMES 

261 HEX  ADADADAOA0 321 

262 HEX A0 322 LDX  PRGNUM 

263 NOM2 HEX  AOAOAOAIA0 323 LDY #10 

264 HEX AOAOAOADAD 324 LDR #$A0 

265 HEX  8D00 325 EFFBCL CPX #°2° 

266 LDA #"-" 326 BEQ EFFBCL2 

267 BNE  TRAITI 327 STA NOMI-1,Y 

268 328 BNE EFFBCLI 

269 329 EFFBCL2 STA NOM2-i,Y 

270 TRAIT LDA #$2D 330 EFFBCLI DEY 

271 TRAITI LDX #32 331 BNE EFFBCL 

272 TRAITBCL JSR COUT 332 

273 DEX 333 * TRANSFERT DU NOM DU PROGR. 

274 BNE TRAITBCL 334 * DANS UNE DES 2 ZONES 

275 JMP  CRDO 335 

276 336 LDY #0 

277 *# AFFICHE ‘’APPUYEZ SUR UNE 337 TRANBCL LDA NOM,Y 

273 x TOUCHE’ ET ATTEND QU’UNE TOUCHE 338 CPX #"2" 

279 * SOIT PRESSEE 339 BEG  TRANBCL2 

280 340 STA NOMI ,Y 

281 APPUYEZ JSR ECRIT 341 BNE  TRANS2 

282 HEX  8D 342 TRANBCL2 STA NOM2,Y 

283 ASC  “APPUYEZ SUR UNE TOUCHE" 343 TRANS2 INY 

284 ASC * POUR POURSUIVRE” 344 CPY #10 

285 HEX  8D00 345 BNE  TRANBCL 

28é BIT +CO10 3446 

287 CLUVBCL 8IT +$CO00 347 * AFFICHE ’BLOAD NDM-PROG ,ASXIX 

288 BPL CLYBCL 348 * PRECEDE DE CTRL-D ET OÙ XX 

289 BIT +$CO10 349 x EST $1000 OÙ $5000 

290 JMP HOME 350 

291 351 JSR ECRIT 

292 4 352 HEX 8D84 

293 *x CHARGEMENT D'UN PROGRAMME — 353 ASC *"BLOÀD”* 

LIANT ESS SES e-=== = 354 NOM HEX  ADADADADA0 

295 359 HEX  ADOAUADADAO 

296 BLOADRTN STA  PRGNUPRI 356 HEX  AOADAOA0A0 

297 JSR ECRIT 357 HEX  ADAOAOADAD 

298 ASC  °NOM DU PROGRAMME * 358 HEX  A0AO 

2797 PRGNUM HEX 00 359 ASC ‘",AS" 

300 ASC * :° 360 HEX 00 

301 HEX 00 3é6i LDX  PRGNUM 

302 LDY #21 362 CPX #"2" 

303 LDA  #$A0 363 BEG BLOAD4 

304 EFFÂACE STA NOM,Y 364 LDA #$10 

305 DEY 365 BNE  BLORDS 

306 BPL  EFFACE 366 BLOAD4 LDA #$50 

307 367 BLOADS LDX #0 

308 * ENTREE D'UN NOM DE PROGR. 368 JSR PRNTAX 

309 369 JMP  CRDO 

310 JSR GETLN 370 

311 TXA 371 HEX 0000 

312 BNE  INPBCL 372 FPROG HEX 00 

313 JMP  $3D0 

Récapitulation 0838- 03 20 OF 20 0D 20 10 20 8880- C4 D2 CS D3 D3 C5 AD CE 
0840- 2) 20 84 2 20 13 15 12 0888- CF D2 CD C1 CC CS BA 00 

0808- 90 08 0B OA 00 BC 32 38 8848- 05 01 15 20 28 03 29 20 0890- 20 4F FO BA FO 1F 20 3 

0808- 34 31 00 00 80 4C 13 08 0850- 31 39 3B 33 20 80 80 20 0898- D5 A9 00 8S BB A9 02 ES 


0816- 4C BO 08 A9 A1 85 AF A9 
0618- DA 85 80 20 EA 03 20 58 
0820- FC 20 73 09 6D 89 8D 00 
8828- A9 05 85 20 20 FB DA 20 
0830- BC 09 20 73 09 20 02 20 


0858- 8C 09 A9 00 85 20 20 FB 
0868- DA A9 61 20 83 DA 18 AD 
0868- 72 AA 6D 60 AA 85 0B AD 
0870- 73 AA 6D 61 AA 85 0C A9 
0878- 82 20 03 OA 20 73 09 C1 


08A0- 89 20 67 DD 20 52 E7 A5 
08A8- 56 85 14 AS 51 85 18 20 
8880- FB DA 4C 6 88 A9 00 85 
08B8- 1A A9 10 85 18 A9 00 85 
08C0- 18 65 19 20 92 09 A9 00 
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08C8- 85 06 85 08 A9 19 85 07 
08D0- A9 59 85 09 A8 00 AS Dé 
08D8- C5 08 DO 04 AS 07 C5 OC 
08E0- 80 SA 81 04 01 08 FO 46 
08E8- AS 25 C9 15 90 06 20 C9 
58F0- 09 20 92 09 A9 A4 20 EU 
08F8- F0 AS 1A 18 45 06 AA A5 
0900- 18 65 07 38 E9 10 48 20 
0998- 41 F9 Eé 24 68 20 24 ED 
0910- 26 48 F9 AD 00 81 06 20 
0918- DA FO A9 18 85 24 81 08 
0920- 20 DA FO 20 F8 DA Eé 18 
0928- A5 18 00 02 Eé 19 Eë 06 
0930- Eé 08 AS 04 DO AD Es 07 
0938- Eé 09 DO 9A 20 F8 DA AS 
0940- 25 C9 15 90 06 20 C9 09 
0948- 20 58 FC A5 19 À6 18 20 
0950- 24 ED 20 73 09 AD C4 C9 
0958- Cé C6 C5 02 C5 CE C3 C5 
0960- 00 AS 19 DO 06 AS 18 C9 


1. Le Disk Manager : le 
DOS en kit. 


Présentation : une documentation 
d'une cinquantaine de pages et une 
disquette. Prix: 450 FF TTC port 
compris. Disponibilité : début avril. 


Oeuvre de Dan Steevey. le Disk Ma- 
nager est un programme utilitaire qui 
permet de recréer les commandes 
d'un DOS ou de redéfinir l'organisa- 
tion d'une disquette, gräce à un jeu 
d'instructions qui en fait un langage 
simple d'accès au disque. 


il contient en seconde part un pro- 
gramme, particulièrement simple 
d'emploi, d'accès aux secteurs du 
disque. et qui offre pourtant des 
commandes évoluées. 


Son but est de permettre la réalisa- 
tion en Basic de programmes faisant 
directement appel au disque. en 10% 
du temps nécessaire pour écrire les 
mêmes programmes en assembleur. 


Le Disk Manager comporte deux 
programmes en langage machine qui 
peuvent résider ensemble en mé- 
moire, mais sont chargeables séparé- 
ment : 


e le Disk Organizer Manager (DOM) 
contient toutes les instructions de 
commande disque en 2Ko. Il peut 
étre utilisé en mode direct ou à 
partir d’un programme Basic. 

e le Disk Editor (DE) est une 
commande additionnelle. fonction- 
nant en mode direct ou en sous- 
programme, qui permet de char- 
ger, visualiser, éditer et réécrire 
des secteurs individuellement. 


Utilitaires 


La disquette contient également qua- 
tre programmes utilitaires élaborés 
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0968- 02 90 05 A9 D3 20 EO FD 
0970- 4C DO 03 48 85 00 68 85 
0978- 0} A0 00 Eé 00 00 02 Eé 
0980- 01 81 00 FO 0é 20 ED FD 
0988- 4C 7B 09 AS 01 48 A5 00 
0990- 48 40 20 73 09 A0 C1 C4 
0998- D2 CS D3 D3 C5 A0 A0 A0 
096- AG AD AD AD AD AD AD AD 
09A8- A0 AD A0 A0 AO AD AD AD 
0980- AO A0 A0 A0 48 AD 8D 00 
0988- A9 AD 00 02 A9 2D A2 20 
09C0- 20 ED FO CA 00 FA 40 F8 
09C8- DA 20 73 09 8D C1 00 D 
0900- 05 D? C5 DA A0 D3 05 D2 
09D8- A0 DS CE C5 A0 D4 CF D5 
09E0- C3 C8 C5 A0 00 CF D5 D2 
09E8- AD 29 CF 05 D2 D3 D5 C9 
09F0- D6 02 C5 8D 00 2C 10 CO 
09F8- 2C 00 CO 10 F8 2C 10 CD 
0400- 4C 58 FC 8D 1A 0A 20 73 





CA98- 09 CE CF CD 
0A10- DO D2 CF C7 
0A18- C5 A9 00 A0 
0A20- A9 AD 99 70 
0A28- 20 éF FO 8A 
0A30- 03 8D FF 01 
0A38- DO F7 À£ 1A 
0A40- A0 E0 82 FO 05 99 
0A48- DO 03 99 ÀB 09 88 00 FI 
0A50- A0 00 89 70 0A EO0 82 F0 
0A58- 05 99 AI 09 DO 03 99 AC 
0A60- 09 €8 CO GA DO EC 20 73 
0A68- 09 8D 84 C2 CC CF Ci C4 
0A70- 40 AD A9 A0 A0 A0 AD A9 
0A78- A0 AD AD AD AD AD AD AD 
0A80- A0 AD 48 A0 AO AD AC C1 
0A88- A4 00 AE 1A GA EO 82 F0 
0A90- 04 A9 19 DO 02 A9 50 A2 
DA98- 00 20 41 F9 4C F8 DA 00 
SAAD- 00 00 


Deux produits nouveaux 
pour les lecteurs de Pom’s 


avec ce langage d'accès au disque. 
L'analyse de ces utilitaires vous ai- 
dera à en maîtriser toutes les possibi- 
lités. 

UTI{I-DISQUE réunit des utilitaires 
classiques ainsi que des utilitaires 
semblables à ceux du CP/M ou du 
MS-DOS: reconstruction de dis- 
quette détruite, vérification, affichage 
de la carte d'occupation, … 


ULTRA-COPIE est la conversion en 
assembleur d'un algorithme de copie 
de disquettes mis au point en Basic 
{et présenté dans la documentation) : 
c'est un programme de backup” de 
fichier très simple d'emploi et le plus 
rapide actuellement sûr Apple Il {à 
notre connaissance). 


EDICAT offre le moyen d'éditer le 
catalogue d'une disquette afin d'en 
améliorer la présentation, de classer 
les programmes, d'ajouter des titres, 
un en-tête, 


MULTI-DISQUE construit une base 
de données de tous vos program- 
mes : il suffit de placer une disquette 
dans le lecteur pour incorporer son 
catalogue au fichier. Une routne de 
tri inédite (à deux tableaux simulta- 
nés) réalise un classement instantané. 


NDLR - Le Disk Manager est à la 
fois un excellent outil et un moyen 
très efficace de comprendre le DOS 
et d'en utiliser toutes les ficelles à 
partir du Basic. Chacun peut alors se 
construire simplement des utilitaires 
personnalisés. 


2. DBSTAG - Utilitaires 
pour DBASE Il. 


Présentation: une disquette CP;'M 
comportant les programmes et une 
documentation détaillée imprimable 
Prix : 450 FF TTC port compris. 


DBSTAG est un logiciel associé à 
DBASE !l et écrit pour Apple Il avec 
carte Z80, pour fonctionnement sous 
CP/M et carte 80 colonnes et minus- 
cules à l'écran. Ce logiciel permet 
d'effectuer des calculs statistiques 
souvent utiles en gestion : moyenne 
et écart-type d'une série de valeurs, 
construction d’histogrammes. calculs 
de corrélation (covariance, coefficient 
de corrélation, le cas échéant ordon- 
née à l'origine et pente de la droite 
de régression), analyse en déciles et 
analyse de Pareto. Ce logiciel n'est 
pas destiné à des statisticiens, mais à 
des gestionnaires. 


Les résultats, fournis sous forme chif- 
frée, sont assortis de représentations 
semi-graphiques, en caractères impri- 
mables par toute imprimante 80 co- 
lonnes ou plus. 


DBSTAG peut exploiter, sans aucune 
transformation ou limitation, toute 
base de données construite sous 
DBASE I Il peut être utilisé seul, ou 
comme sous-programme d’un pro- 
gramme écrit par l'utilisateur. Simple 
à comprendre et à apprendre, il est 
livré avec un exemple complet qui il- 
lustre parfaitement ses possibilités. 
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L’obtention de l’extremum absolu 
des fonctions à plusieurs variables 


A. Guillez et Y. Cherruault 


But et principes 


Le problème traité dans cet article est 
très important en informatique scien- 
tique et technique. en recherche 
opérationnelle et en comptabilité pré- 
visionnelle. 

Devoir identifier des fonctions dont 
on connaît la forme mathématique, 
mais pas les coefficients, et employer 
pour cela un algorithme de minimum 
ou de maximum. est une tâche cou- 
rante dans tout bureau d'étude. En 
outre. les méthodes de minimisation 
sont d'usage pour résoudre les systè- 
mes différentiels et aux dérivées par- 
tielles (Rite et Rayleigh). 


Tous les procédés existants pour les 
fonctions de plusieurs variables sont 
bons, mais tous calculent des minima 
ou des maxwma locaux. Ils sont 
fondés sur l'hypothèse de l'unicité de 
l'extremum au voisinage des valeurs 
initiales injectées dans le calcul. 

On s'efforce. en informatique scienti- 
fique. de démontrer cette unicité et, 
lorsqu'on n'y parvient pas. de définir 
les conditions. les intervalles où elle 
existe pour s'y placer. C'est générale- 
ment un travail difficile, long et péni- 
ble. De plus, cette étude préalable 
garantit qu'il existe un extremum 
dans certains intervalles, mais non 
que ce sera l'extremum absolu. 


Il existe des méthodes probabilistes 
de recherche des extrema absolus 
mais, par nature. elles peuvent seule- 
ment garantr que le point trouvé fi- 
nalement est bien le minimum ou le 
maximum absolu avec une certaine 
probabilité, par exemple de 95 %. 
Elles ne donnent pas de certitude. 


Dans les problèmes pratiques utilisant 
des méthodes de minimisation / 
maximisation. seul l'extremum absolu 
peut fournir le meilleur résultat, la 
meilleure approximation. d'où le 
grand intérêt d’une méthode déter- 
ministe d'obtention de cette valeur. 
Cet intérêt suppose toutefois que la 
méthode retenue ne consomme pas 
trop de temps-machine: celui-ci doit 
rester comparable avec le temps total 
nécessaire à l'obtention d'un bon ex- 
tremum par les méthodes habituelles 
(durée de l’étude préalable donnant 
les conditions d'existence et d’unicité. 
plus durée de rédaction et de frappe 
du programme. plus temps d’exécu- 
tion proprement dit). 


On sait parfaitement, et depuis long- 
temps, trouver l'extremum absolu 


d'une fonction d'une seule variable. 
y compris quand cette fonction n'est 
pas exprimable mathématiquement. 
quand il s'agt d'une sous-routine (on 
utilise dans ce cas des procédés de 
parcours et discrétisation). 

Les auteurs ont donc imaginé une 
transformation mathématique qui ra- 
mène toute fonction de plusieurs va- 
riables à une fonction d’une seule 
variable avec l'approximation voulue 
et. en pratique, avec une excellente 
approximat.on. 

Cette transformation est 
Aliénor. 


baptisée 


Le principe fondamental d'Aliénor 
est une propriété particulière aux spi- 
rales d'Archimède (voir figure 1). La 
courbe, d'équation polaire R=T/C, 
passe à la distance maximum 27 /C 
de tout point M du plan. cette dis- 
tance étant mesurée sur le rayon 
vecteur et T étant positif. 

Si le signe de T est quelconque, on 
obtient la spirale double de la figure 
2a, qui passe à la distance maximum 
/C de tout point du plan. Les spira- 
les d'Archimède passent par l'origine 
et leurs équations cartésiennes para- 
métriques sont : 


e X1 = TxCOS(T}/C 
e X2 = TaSIN(T)/C 


On peut donc déjà. par la transfor- 
mation ci-dessus {baptisons-la 1] ra- 
mener toute fonction de deux varia- 
bles à une fonction de la seule 
variable T avec l'approximation que 
l'on veut, c'est-à-dire définir une 
courbe qui passera à une distance 
maximum fixée de tout point de la 
surface représentée par la fonction 
de deux variables, sous la seule 
condition que cette fonction soit 
continue. 


Plus précisément. soit Z=f(X1.X2) la 
fonction examinée: elle représente 
une surface. Soient Y1 et Y2 les 
images de X1 et X2 par la transfor- 
mation {|}, c'est-à-dire le point de la 
spirale d'Archimède d'équaton (1) 
qui est le plus proche de X1-X2. Si 
la fonction f(X1.X2) est continue. 
f(Y1.Y2) sera une bonne approxima- 
tion de f(X1.X2), et même d'autant 
meilleure que Y1-Y2 sera plus près 
de X1-X2. 

Or : 

e la distance ((X1-—Y1)"2) + 
{{(X2—Y2)"2) est bornée et reste 
inférieure à ((27 /C) "2) 

e en tout extremum à dérivées par- 


tielles nulles, la fonction examinée 
est continue 


Le minimum ou le max'mum absolus 
de l'image Z=f{Y1.Y2) seront donc 
des valeurs approchées des extrema 
absolus de l'original Z=f{X1,X2). 


En général, si l'on peut définir un 
parcours suffisamment dense de l'es- 
pace des variables. la transformation 
définie par les équations de ce par- 
cours fournira une valeur approchée 
des extrema de la fonction examinée. 
1 n’est pas difficile de densifier le 
parcours d'Archimède du plan. ce 
qui permet de limiter le paramètre C 
et le pas d'exploration. Il suffit pour 
cela de connaître les bornes inférieu- 
res et supérieures des variables qu’on 
cherche. 

En pratique. cette condition est tou- 
jours remplie. Elle peut nécessiter 
une étude préalable du phénomène 
traité, mais cette étude est de toute 
facon indispensable et profitable 


Généralisation 


La figure 2 représente une transfor- 
mation Âliénor à 4 variables et la fi- 
gure 3 une transformation à 8 varia- 
bles. Ces figures montrent comment 
on généralise à un nombre quelcon- 
que N de variables. La transforma- 
tion a une structure d'arbre. 

Ainsi, la perte d'information reste 
bornée et, d'autre part. il est facile 
d'établir un programme de test qui 
calculera la distance réduite maxi- 
mum à laquelle le parcours passe de 
tout point M de l'espace à N dimen- 
sions en fonction de ses paramètres 
(diviseur C. valeur maximum TM de 
la variable T d’Aliénor. pas d’explo- 
ration P et, on le verra un peu plus 
loin, facteur de densification K). 


Pour N variables transformées. le 
nombre de niveaux S est la partie 
entière par excès du logarithme base 


2 de N. I est donc agréablement 
borné : 

e N=2: S=1] 

e N=3 ou 4 : S=2 

e N=5, 6,7 ou 8 : S=3 

e N=9 à 16. S=4 


L'informatique est une science expé- 

rimentale et l'expérience nous à 

appris que : 

e Une bonne valeur de TM est 
(C S}. 

© 0,2 est toujours une bonne valeur 
de pas. 

e 2 et 3 sont toujours de bonnes va- 
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leurs du facteur de densification K. 
e De bonnes valeurs du diviseur C 
sont : 25 pour 2 variables transfor- 
mées. 7 pour 3 ou 4. 6 pour 5 à 


En pratique, les micro-ordinateurs ac- 
tuels ne peuvent aller au-delà de 16 
variables. car le nombre de pas. et 
donc le temps de calcul. deviennent 
ensuite prohibitifs. En effet. 6 4 — 
1296 et 1296/0,2 = 6480 pas pour 
16 variables transformées. soit autant 
d'exécution des calculs. ce qui repré- 
sente facilement toute une nuit. 


Densification. Obtention 
du minimum absolu de 
l'image 

L'expérience a appris que la meil- 


leure technique de densification. la 
plus rapide, employait la fonction 
INT. 


Soient m et M les bornes inférieures 

et supérieures de la variable X, et 

Y={{T) la transformée archimédienne 

de X, le principe de la densification 

est : 

eo Si O<Y<I: XA = m + 
(M—-m)*Y 

e Autrement: XA = m + (M-m) * 
(KxY — INT(KxY)) 


XA est l'image de X par Aliénor 


La figure 4 montre l'obtention du mi- 
nimum absolu de l'image. On prend 
d'abord un minimum au hasard MR. 
puis on progresse sur le parcours à 
partir de FT =0 en cherchant des mi- 
nima successifs à des cotes de plus 
en plus basses. Le plus petit mini- 
mum trouvé est l'approximation 
cherchée du minimum absolu de la 
fonction originale de N variables. 


Le pas initial dans la sous-routine de 
minimisation sera 0,1. | devra être 
diminué jusqu'à 0.002, ce qui fait 7 
passes au facteur de réduction 0.55. 
Ce dernier est généralement 
conseillé, 

Ensuite, on obtiendra le minimum 
absolu de l'original par une sous-rou- 
tine de variations locales. qui n'aura 
que peu d'’itérations à faire. 


Formules de transforma- 
tion 
1} Pour 3 variables : 


eo TI=T*xCOS(T}7 

® T2=T:SIN(T)7 et 

e X1=T1*COS(T1}/7 
e X2=T2*xCOS(T2)/7 
e X3=T2*SIN(T2)/7 


2) Pour 4 variables : 
e T1, T2, X1. X2 et X3 comme ci- 


dessus 
e X4=TI*SIN(T1}7 
3) Pour 5 variables : 
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T1=T+xCOS(T)/6 
T2=T+SIN(T)/6 
T3=T1+COS(T1 )/6 
T4=TIYSIN(T1)/6 
TS5=T2*COS(T2)/6 
X1=T3+COS(T3)/6 
K2=T3+*SIN(T3)/6 
K3=T4+COS(T4)/6 
X4=T4xSIN(T4)/6 


e X5=T5+xCOS{T5)/6 

4) Pour 6  vatiables, ajouter 
X6=T5xSIN(T5)/6 

5) Pour 7 variables. ajouter 
T6=T2*SIN(T2)/6 et 
X7=T6*COS(T6);6 

6) Pour 8 variables. ajouter 


X8=T6*SIN(T6)/6 … 


Exemple de programme 


Le programme ci-joint identifie un 
développement exponentiel à 4 
termes, qui simule l'une des fonc- 
tions d’un système compartimental et 
est censé représenter une concentra- 
tion. 


Le programme principal commence 
par la fabricat on du problème (lignes 
2 à 32). On donne en ligne 6 les 
dates T{l) des mesures. On prend en 
ligne 10. au hasard. les exposants 
L(1) de façon vraisemblable, puis de 
même en ligne 12 les coefficients 
A(l). Les lignes 14 à 24 constituent la 
boucle de calcul des valeurs des 
concentrations C{i} pour les T{l}. Ces 
valeurs sont astreintes par la ligne 22 
à être toutes positives, puis subissent 
une perturbation aléatoire de plus ou 
moins O.05*RND(8) pour être ren- 
dues vraisemblables. 

Sous-routine 400 :transformaton 
Aliénor. 


Lignes 420 à 500 :calcul des expo- 
sants et des coefficients. calcul des 
“valeurs calculées’ CCI) de la 
concentration, calcul de la fonction à 
minimiser DE qui est 100 fois l'erreur 
type des moindres carrés de CCI) 
exprimée avec 5 décimales. Par souci 
de réalisme, C{1) et CC{) sont expii- 
més avec 3 décimales. 


Sous-routine 300 :obtention des 
minima locaux d'Aliénor. ia sous-rou- 
tine 200 donnant le minimum absolu 
de la fonction DE des 8 variables L{1) 
et A(l). 


Lignes 34 à 42 :obtention au ha- 
sard du point le pius bas parmi 15 
(DA, TA), puis, via 300, du mini- 
mum correspondant (DR. TR). 


Lignes 44 à 58 :exécution de la fi- 
gure 4. les minima d'Aliénor succes- 
sifs, de plus en plus bas, sont appelés 
D£Z-TZ. Le dernier trouvé est le plus 
petit et donc le minimum absolu 


d'Aliénor; on l'appelle DL et les va- 
leurs correspondantes des L{I} et Al) 
sont dites LL(I) et AL(I). 


Ligne 60 :prévoit un aléa : le mini- 
mum absolu d'Aliénor peut-être DR. 
De même, la ligne 56 prévoit que la 
vallée a pu être trouvée en TA-DA 
par l'aval. 


Ligne 62 :appeler 300 au lieu de 
400 ne peut qu'améliorer le résultat. 
Les résultats d'Aliénor sont imprimés 
aux lignes 68 à 82. 


La ligne 86 appelle 200 pour les ré- 
sultats définitfs qui sont DM (100 
fois l'erreur type), les exposants Lil), 
les coefficients AI) et les ‘valeurs 
calculées” CCI} Ces résultats sont 
imprimés aux lignes 88 à 100. 


La sous-routine 400 comprend les 
expressions des L(l) à l’aide de la va- 
riable T d'Aliénor (lignes 480 à 418). 
les initialisations (420 à 426). le cal- 
cul des matrices primitives des moin- 
dres carrés MC{I.J) et CM(I.J) et des 
matrices principales M(LK) et V{l) 
(lignes 434 à 446). le calcul des Afl) 
par la méthode de Gauss {lignes 448 
à 486), et enfin le calcul des CC{i) 
puis de DE (lignes 488 à 499), 


La sous-routine de minima d'Aliénor 
(300 à 332) est du type ”à balance- 
ment”, minimisation quadratique. tri 
et reprise avec réduction du pas. Le 
pas initial est défini en 300 : c'est le 
pas d'exploration (0.2) multiplié par 
DA:100 pour qu'il y ait très peu de 
reprises. Rappelons en effet que la 
première valeur de DA est le plus 
petit des 15 nombres DE pris au ha- 
sard et que les valeurs suivantes sont 
toutes inférieures à DR. et de plus en 
plus petites. On se procure d'abord 5 
valeurs encadrantes, les X et les Y. 
on sort la plus petite (lignes 316 à 
322). et on reprend avec elle et un 
pas réduit. Les Ÿ sont les DE et les X 
sont les angles. Le résultat final est 
baptisé TM-DM. 


La sous-routine 200 est organisée de 
la même façon et agit sur les 4 expo- 
san. qui y prennent les appellations 
ee DE correspondants étant appe- 
és X. 


Les résultats d'Aliénor sont excel 
lents : l'approximation trouvée 
(2.48515 %}) est inférieure au quan- 
tum de la perturbation aléatoire (5 
%). I ne faut pas croire que c'est 
une exception: c'est la règle. Tous 
ceux qui utiliseront ce programme 
sur leur Apple pourront s'en convain- 


cre. 

Les résultats définitifs sont encore un 
peu meilleurs, mais à peine Pour- 
tant. la sous-routine 200 procure une 
modification significative des expo- 
sants L({) et des coefficients A(1). 
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Structure d arbre Sbtention du minirium absolu de l'image. 
Programme ALIENOR 4 DIM LXC(3),PC3) ,XC5),Y(5),G6C3) 
6 DATA .5,1,2,4,6,8,11,15,18,21,2 
1 REM xx ALIENOR xx 4,30 


8 FOR I = O TO 11: READ TI): NEXT 

2 DIM T(I11),CC11),CC(11) ,MC(C11,3) 
,MC3,112,MC3,3),VC3),LC3) ,LL 10 L(O) = .30 * RND (12:LC12 =  RND 
C3) ,AC3) ,AL(3) C1D:LC23 = LC) + C1 — LCD) * 
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RND C1):1,(39 = 4 + 2 %x  RND 


12 A(0) = 2 + 4 %# RND (1):A(1) = 
- 2 - 2 #x RND CI)D):AC2) = .5 
— 5 # RND (1):A63) = 3 + 5 * 
RND (1) 

14 1 = O:CCI) = 0 

16 J = O:SI = INT € RND (1) * 100 


18 CCI) = C(I) + LRO SR AE 


CJ)) x ACJ) 


EXP « 


20 IF J < = 2 THEN J = J + 1: GOTO 
18 

22 IF CCI) < = O THEN 12 

23 CCI) = CCI) x C1 + .05 * RND ( 
19 #x ( — 1) * SI):CCI) = .001 
% INT CCCI) x 1000 + .5) 

24 IF I < = 10 THEN 1 = I + 1: GOTO 
16 

25 PRINT CHR$ (4)"PR#H1" 

27 PRINT "DONNEES" 

28 FOR 1 = O0 TO 11 STEP 3 

29 PRINT "C("I1")="C(I)" CCI EE 
LOS CCI + 19" CET +27) 
="C(I + 2) 

30 NEXT I 

31 PRINT "XXE XXXXX 
HHHHREX" 

32 PRINT CHR$ (4)"PR#0O" 

34 T = 50 * RND (1): GOSUB 400:DA 
= DETA=T 

36 FOR II = O0 TO 15:T = 50 x RND 
C1): GOSUB 400:DI = DE 

38 IF DI < = (DA) THEN DA = DI:T 
A=T 

40 NEXT II 

42  GOSUB 300:DR = DM:TR = TM: PRINT 
*DR="DR 

44 TZ = 0:D2 = DR 

46 Q = 0 

48 T = TZ + .2 x Q: GOSUB 400:DÂ = 
DE: TA =T 

50 IF T > = 50 THEN 60 

52 IF DA > D2 THEN QG = Q + 1: GOTO 
48 

54. GOSUB 300:D2 = DM:T2 = TM:TC = 
TM 

06 IF T2 < = (TA + .2) THEN TZ = 
TA + .2 

958 GOTO 44 

60 IF TZ = O THEN TC = TR 

62 TA = TC:DA = DZ: GOSUB 300:DL = 
DM 

64 PRINT CHR$ (4)"PR#H1" 


68 PRINT "RESULTATS D’ALIENOR" 

70 FOR II = O0 TO 3:LL(II) = LCII) 
tALÇCII)D = ACII)D 

72 PRINT "LLC"II")="LLCIN)" A 
LC"II")="ALCII)D 

74 NEXT I1 

75 FOR M = 0 TO I1 STEP 3 

76 PRINT "CC("M")="CC(M) * 
"M + 1")="CC(M + 1)" 
M + 2")="CCCM + 2) 

77 NEXT M 

78 PRINT 

80 PRINT 


CCC 
CCC" 


*"DL="DL 
DUREE DE DE DE DE DE DE HE HE HE DE DE DE DE DE DE DE DE IEEE À 
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82 
86 
8B 
92 
94 
96 


97 
98 


99 


100 
104 


200 


202 


204 


206 


208 


210 
212 


214 


216 


218 


220 
222 
224 
226 
228 
230 
232 


234 
236 


238 
240 
300 
302 
304 
306 
308 


310 


312 


xxx" 

PRINT. CHR$& (4) "PR#0" 

GOSUB 200 

PRINT CHR$& (4) "PRHI”" 

PRINT "RESULTATS DEFINITIFS® 

PRINT "OM="0M 

FOR II = O TO 3: PRINT "L(C*II" 
)="LCII)" AC"II")="ACII): 

NEXT II 

FOR II = O TO 11 STEP 3 

PRINT "CCC"II1")="CC(II)* C 
CC"II + 1")="CCCII + 1)° 
CC£"II + 2*")="CCII + 2) 

NEXT II 
PRINT 
END 

RG = 0:DX = DL 
FOR 12 = O0 TO 3:LX(12) 
2):PCI12) = LLCI2) x DL / 

NEXT 12 
FOR 12 = 0 
:X(0) = DX 

YC12 = YCO) + PCI2):LCI2) = Y( 
1): GOSUB 420:X(1) = DE 
IF XC1) < XC0O) THEN YCO) = Y< 


CHR$S (4) "PR#HO" 


LLÇOI 
100: 


TO 3:Y(0) = LX(I2) 





1):XC0) = X(1)2: GOTO 204 

Y(2)2 = Y(O):XC2) = X{0) 

Y(C3) = Y(2) - PCI2):LCI2) = Y( 
3): GOSUB 420:X(3) = DE 
IF XC3) < X(2) THEN Y(2) = Y< 
3):X(C2) = X(3)2: GOTO 212 

Y(C4) = Y(O) + PCI2) # XC0)> / < 
XCO) + XC1))3:LCI2) = Y(4): GOSUS 
420:X(4) = DE 

YCS) = Y(2) - PCI2) x X(2) / 
XC2) + XC3)2»}:LCI2) = Y(S5): GOSUB 
420:X(5) = DE 

DX = XCO):LXCI2) = Y(0) 
FOR J2 = 1 TO 5 
IF XCJ2 < = X(0) THEN DX = 
XCJ2):LXCI12) = Y<J2) 

NEXT J2 

NEXT 12 
IF €.55 * RG) < = .01 THEN 2 
36 
FOR 12 = O TO 3:PCI2) = .55 * 
PCI2): NEXT 12 

RG = RG + 1: GOTO 204 

L(O) = LXCO):LC1) = LXC1):L(C2) 
= LXC2):L(C3) = LX(3) 
GOSU8 420 :0M = DE 
RETURN 

P = DA x .002:X(0) = TA:Y(O)» = 
DÂ:RF = 0 

XCID2 = X(0) + P:T = X(1)2: GOSUB 
400:YC1) = DE 
IF YC1) € = CY(0) -— 1E - 5) THEN 
X(0O) = XCI):Y(0) = Y(1): GOTO 
302 

XC2) = X(0):Y(2) = Y{(0) 

X(3) = X(2) - P:T = X(3): GOSUB 
400:Y(3) = DE 
IF YC3) € = CY(2) - 1E - S) THEN 
XC22 = X(3):Y(2) = Y(3): GOTO 
308 

X(4) = XCO0O) + P x YO) / CY(0) 


+ YC1D):T = XC4): GOSUB 400: 


DEL ET LIT 20 pe 09 29-00-00 08. 95.68 GEST AT 
ER 


Y(4) = DE 


314 X(5) = X(2) - P * YC2) / CY(3) 
+ Y(2)):T = X(5): GOSUB 400: 
Y(S) = DE 
316 TM = X(0):DM = Y(0) 
318 FOR 11 = 1 TO S 
320 IF Y{I1) < YCO> THEN TM = XCI 
13:DM = Y<I1) 
322 NEXT 11 
324 IF P < = .002 THEN 330 
326 X(0) = TM:Y(0) = DM:P = .55 * 
P 
% 328 RF = RF + 1: GOTO 302 
“ 330 T = TM: GOSUB 400 
“M 332 RETURN 
® 400 TO = T * COS CT) / 7:T1 = T * 
F1 SIN CT) / 7 
æ 402 T2 = TO * COS (TO) / 7:T3=T 
É- 0 * SIN (TO) / 7:T4 = Ti * COS 
5 CTI) / 7:TS = Ti # SIN CTI) / 
2 7 
% 404 IF T2 > = O0 AND T2 € = .3 THEN 
53 L(O) = T2: GOTO 408 
” 406 L(0) = T2 - .3 * INT (3.3333 + 
T2) 
408 IF T3 > = 0 AND T3 { = .333 
4 THEN L(13 = 3 *x T3: GOTO 41 
2 
410 L(12 = 3 x T3 - INT (3 x T3) 
412 IF T4 > = 0 AND T4 € = .333 
4 THEN L€C23 = LCI) + 1 - Li 
>) * 3 »* T4: GOTO 416 
414 LC22 = L€1 + C1 — LC12) * C3 * 
T4 - INT (3 * T4)) 
416 IF TS > = O0 AND TS 4 = .333 
4 THEN L(3> = 6 x T5 + 4: GOTO 
420 
418 L(3) = 4 + 6 x TS - 2 * INT ( 
3 *x T9) 
420 DE = 0:SE = 0 
422 FOR I = O TO 3:V(1) = O:MCI,0 
) = O:MCI1,12 = O:M(1,2) = O:M 
(1,3) = 0 
424 LCI) = ABS (LCIDD:LCID = INT 
(LCI) # 1E4 + .5) * 1E - 4 
426 NEXT 1! 
434 FOR I = O TO 11: FOR J = O0 TO 
3 
436 E = EXP € - T(I) * L(J)):MC(I 
,J) = E:CMJ,DD = E 
438 NEXT J,I 
440 FOR I = O TO 3: FOR J = O0 TO 
11 
442 UCI) = VCID + CMCI,J) * C(J) 
444 FOR K = O0 TO 3:MCI,K) = M&I,K 
) + CMCI,J) * MCCJ,KD: NEXT K 
446 NEXT J,1 
448 FOR H = 3 TO 1 STEP - 1: FOR 
1 = H - 1 TO O STEP -1 
450 IF MCH,H) € > O THEN 470 
452 FOR L = H - 1 TO O STEP - 1 
454 IF MCL,H) < > O THEN 460 
455 NEXT L 
456 DE = 10000: GOTO 500 
460 REM ALIENOR 
462 FOR W = 0 TO 3 
ARS 


44 


464 


466 
468 


470 


472 
474 


476 
478 
479 


480 
482 


484 
485 


486 
488 
490 
492 
494 


496 
498 


499 


500 


R 


_ 


D 
LC 


SBN 


8 TA 


10 


12 


14 
16 


18 
20 
22 


24 
26 


28 


30 


INPUT C:TM = 


GCW) = MCL,W>:MCL,W> = MCH,W) : 
MCH,W) = G<y) 
NEXT W 

Vi = VCLD:VCL) = 
1 

VCID = UCI) 
MCH, HD 
FOR J = 0 TO H 

MCI,J) = M(I1,J) 
,J) / MCH,H) 
NEXT J,1,H 

AO) = UVCO) / MCO,0) 

AC0) = INT CACO) * 1E4 + 


VCHI:UCH)I = VU 


— MCI,H) x VCH) / 


_- M£E,HD #% MCH 


:9).% 


FOR K = 0 TO 1 - 1:S = 
I,K) x ACK): NEXT K 
ACID = (UCI) = S) / M(1,1) 
AI) INT CACI)D * 1E4 + 
IE - 4 
NEXT 1 
FOR 1 = O TO 11:CC(1) = 0 
FOR J = 0 TO 3:CC(1) = CCI) + 
ACJ) * MC(I1,J): NEXT J 
CCI) = INT (CCI) * 1000 + 
5) *x .001 
SE = SE + 
+ (CCI) 
NEXT I 
DE = 100 * 


9) * 


ABS CCC(I1)}:DE DE 


CCR)? 

SQR (12 x DE) / SE 

DE = 
2.0 
RETURN 


INT (DE *x 1ES5 + .5) * 1E 


EM xx PROGRAMME DE TEST xx 


CALIENOR) 


c * 
IM DL(20):CR = 0 
0) = .3 x RND (i1)2:L(1) =  RND 
C12:LC2) = LCI) + C1 — L(C1)) + 
RND C1)2:L(3) = 4 + 2 x  RND 
(1) 
= TM x 
400:DÀA = 
FOR 11 = O TO 15:T = TM x 
(12: GOSUB 400:DI = DE 
IF DI < (DA) THEN TA = 
DE 
NEXT II 
GOSUB 300 :DR = 
“DR=*DR 


2 + 1 


RND C1):T GOSUB 


DE 


TA: 


RND 


T:DA = 


DL:TR = TL: PRINT 


02 = DR:TZ = 0 
Q = 0 
TA = 


TZ + .2 x QG:T = TA: 
499:D% = DE 

IF T > = TM THEN 34 
IF DA > DZ THEN Q = G + 1: 
22 

GOSUB 300:D2 = 
TL 

IF TZ < = 
TA + .2 


GOSUB 


GOTO 


DL:TZ = TLiTC 


(TA + 


.2) THEN TZ 


Pomsn 11 


32 GOTO 20 
34 IF TZ + O THEN TC = 


36 TA = TC:DA = DZ: GOSUB 300:DL<C 


R) = DL: PRINT “DLé 
CR) 


= CR + 1: GOTO é 
= DLCO):DI = DL(O) 
AE 

44 FOR J = 1 TO 20 


46 IF DLCJ) > DL(O) THEN DS 


J) 
48 IF DLCJ) < DLCO) THE 
J) 
50 DL = DL + DL(J) * 2 
952 NEXT J 
54 DL = SQR (DL / 21) 
96 PRINT CHR$ (4)"PR#1 


60 PRINT “RESULTATS DU 
62 PRINT "DL="DL"Z D 
DI="DI"Z C="C 
64 PRINT CHR$& (4)"PR#KO 
70 END 
360 P = DA x .002:X(0) = 
DR:RF = 0 


302 XC1) = XCD) + P:T = 
400 :Y(1) = DE 


| 318 FOR I1 = 
TR 320 


1 TO S 
& Y(CO) THEN TL = XXI 


-002 THEN 330 
YCO) = DLi:P = ,55 * 


PE YGIA 
1):DL = Y(I11) 
*CR*)="DL( 322 NEXT Ii 
324 IF P < 
= 20 THEN 42 326 X(0) = TL: 
P 
:DL = DLKO 328 RF = RF + 


1: GOTO 302 


330 T = TL: GOSUB 400 


332 RETURN 


= DLC 400 TO = T * : COS CT) / CTI = T x 
SIN CT) / C 
N DI = DL 402 T2 = TO * COS (TO) / C:T3 = T 
0 x SIN (TO) / C:T4 = Ti * COS 
CTI) / CiTS = Ti * SIN CTI) / 
C 
404 IF T2 > = O0 AND T2 € = .3 THEN 
° MCO) = T2: GOTO 408 
TEST" 406 M(O) = T2 - ,3 x INT (3.3333 * 
S="DS"X T2) 
408 IF T3 > = 0 AND T3 € = .333 
» 4 THEN MC1) = 3 x T3: GOTO 41 
2 
TA: YO) = 410 MC1) = 3 * T3 - INT (3 * T3) 


412 IF T4 >» 
X(12: GOSUB 


= 0 AND T4 < = .333 
4 THEN MC2) = MCD + C1 - MI 


>) *# 3 x T4: GOTO 41é 


304 IF YC1) < = CY(CO) - 1E - 5) THEN| 414 MC2) = MCID + C1 -— MC12) x C3 * 

X(O) = X{1):Y(0O) = Y<1): GOTO T4 - INT 3 x T4)) 

302 416 IF T5 > = 0 AND TS < = .333 
306 X(22 = X(0OU):YC2) = YO) 4 THEN MC3) = 6 x TS + 4: GOTO 
308 X(3) = X(2) - P:T = X(3): GOSUB 420 

400:Y(3) = DE 418 M3) = 4 + 6 x TS - 2 x INT « 
310: -IF YO). < = CYC2). = LE — 5) THEN 3 * TS) 

X(22 = XC3):Y4(2) = Y(3): GOTO 420 DE = 0:SE = 0 

308 422 FOR I = O0 TO 3:SE = SE + MI) 
312 X(4) = XC0O) + P x YC0O) / CY<CO) :DE = DE + CMCID — LéI)à ” 2: 

+ YC1)):T = XC4): GOSUB 400: NEXT I 


Y(4) = DE 
314 XC5) = XC2)2 - P x Y< 
+ YC2)ÈIET = X(CS5): 
Y(S) = DE 
316 TL = X(0):DL = Y(O) 


424 DE = 200 * 


2 7 <Y(3) 426 DE = 1iE - 
GOSUB 400: 9) 
430 RETURN 


SQGR (DE) / SE 
5 * INT CDE * 1E5 + 





H s'agit d’une UNIT avec une fonc- 
ten principale renvoyant un carac- 
tère pris dans un menu. L'affichage 
se fait horizontalement ou verticale- 
ment. le choix se fait soit en tapant la 
première lettre de l'option. soit en 
positionnant la zone inversée avec les 
flèches et en faisant RETURN. 


Cette UNIT utilise elle-même l'UNIT 
LIB contenant PINFO et PCHAR (cf 
numéros précédents). 


L'utilisation se fait par exemple en 


déclarant : 
VAR M : TABMEN: 
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Un menu à la carte 


puis dans le programme : 
PROCEDURE 
MITABMEN): 

BEGIN 
ZEROMENU(MI1): 
M1'O!:= TITRE": M1!l! = Lire, 
M1!2! := Changer: 

etc. 


END 


Le programme principal commencera 
par INITM(M}: on utilisera la fonction 
par : 

CASE MENU(F.M) OF 

LL "LIRE: 

‘C’: CHANGER: 


INITM(VAR 


Michel Crimont 


La présentation à l'écran dépend du 
paramètre F : 


Si F=0. seule la ligne d'affichage est 
effacée, sinon. tout l'écran est effacé 
avant affichage. 

Si F<=0, il y a affichage du menu 
sur une ligne. 

Si F>0,. il y a affichage vertical, le 
chiffre F représentant l'espacement 
entre les lignes. F=1 toutes les 
lignes. F=2 : toutes les deux lignes 

À noter que la ligne O du tableau sert 
de titre au menu et n'est pas utilisée 
comme option. 


Je 








CKSS+X) 
UNIT GETMENU; 
INTERFACE 
USES LIB;C* Pour PCOM=PRENCAR sans affichage, et PRINFO avec HT:=CHR(21) ; 
INV:=CHRC15) ;NORM:=CHR(1 4) 5LF:=CHRC10) ;UT:= CHRC11) pour APPLE Ile*) 
TYPE TABMEN = PACKED ARRAYIO..10]) OF STRING(20)1;CxLa ligne O0 sert au titrage *) 
FUNCTION MENU(F:INTEGER; VAR M : TABMEN) : CHAR; 
PROCEDURE ZEROMENUCVAR M : TABMEN) ; 
IMPLEMENTATI ON 
FUNCTION MENU; 
VAR NUMOPTION,I,MAXOP,MX:INTEGER; OPTION:CHAR; TOTCOM,DIR:SET OF CHAR; 


PROCEDURE PRINTLIGNECI:INTEGER:;S:STRING;GR:CHAR) ; 
BEGIN 
IF F <=0 THEN 
BEGIN 
GOTOXY(I1#13,0) ;WRITE(GR,’ ’,St111,°7€7,COPY(S,2,LENGTHS)-1),°,°) 
END ELSE 
BEGIN 
GOTOXY(20,2+F*x1) ;WRITECGR,’ °,S01),7 - ”,S); 
END; 
WRITE(NORM) ; 
END ; 


BEGIN 
TOTCOM:=[ESC]1; NUMOPTION:=i; MAXOP:=0; GOTOXY(O,0) ; 
IF F<>0 THEN WRITECEFE) ELSE WRITE(EFL); 
IF F>0 THEN GOTOXYK({(79-LENGTH(MIO)) DIV 2,0); WRITEC(MEO1]); 
IF F>0 THEN BEGIN DIR:=CCR,LF,VTI;MX:=10 END 
ELSE BEGIN DIR:=[ICR,BS,HTI1;:MmK:=5 END; (# touches de direction*) 
FOR J1:=1 TO MX DO 
IF MCI3<>’7’ THEN 
BEGIN 
MAXOP:=MAXOP +1 ; PRINTLI GNECI ME 11 ,NORM)D ; TOTCOM:=TOTCOM+EMEI,1)1; 
C*totcon contient les premitres lettres des options%) 
END; 
PRINTLIGNEGCI ,ML13,INV) ; 
REPEAT 
OPTION:=PCOMCTOTCOM+DIR) ; 
IF OPTION IN TOTCOM THEN BEGIN MENU:=OPTION;EXIT(MENU) END;C%x lettre *) 
PRINTLIGNE (NUMOPTION ,MCNUMOPTION3 ,NORM) ;C% dir r£{icrire en normal #) 
CASE ORDCOPTION) OF 
8,21,10,11:BEGIN 
Cxdepl acement*) 
IF OPTION IN [BS,UT]I THEN NUMOPTION:=NUMOPTION-i 
ELSE NUMOPTI ON :=NUMOPT ION#+ 1 ; 
IF NUMOPTION<I THEN NUMOPTION:=MAXOP ;C#circulairex) 
IF NUMOPTION>MAXOP THEN NUMOPTION:=i; 
PRINTLI GNECNUMOPTION,MENUMOPTI ON] ,INV)D;C#inv la ligne*) 


END; 
19 : BEGIN MENU :=M{£NUMOPTION,1]);EXITC(MENU) END;Cxopt sur returnx) 
END; 
UNTIL OPTION=ESC3;C*x ESC pour sortir du menu *x) 

END ; Des listages propres … 
Pour lister un programme sur impri- 

PROCEDURE 2ZEROMENU:; mante sans voir ’JLIST”" sur la feuille 

BEGIN FILLCHAR(M,SIZEOF(M) ,CHRCO)D) END; ni devoir faire "PR#0” après, il faut 
faire ‘’PR#1 : LIST” 

BEGIN Pour comprendre cela, lire le Trucs 

END. et astuces” du numéro 7 en page 26. 


Malheureusement, ’’PR#1: CATA- 
LOG" ne marche pas ! 
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Le programme présenté ici permet 
de trier des tableaux de tout type. à 
une ou deux dimensions. avec asso- 
ciation éventuelle d’un deuxième ta- 
bleau contenant des informations pa- 
rallèles. 


Pour les tableaux à deux dimensions, 
la première représente les ‘rubri- 


m s : “4 te: 
fombre de rubriques ne dot pes dé &T-AIL3)AI40) La profondeur admise ici pour le [Ki 
passer 51, mais le nombre d'articles Si le tableau n’a qu'une dimension. I point de départ de la panne d'article 18 
ne dépend que de la place mémoire doit être à zéro. La syntaxe devient FASTUE es limitée à 15 caractères Es 
Éspone ds a ns 
L'appel de la routine se fait au &T,O.A(O).A(N) avant assemblage ou par un POKE à # 
moyen de l'ampersand (&): la syn- On peut associer un autre tableau au partir du BASIC. É-+| 
taxe en est la suivante : tableau trié. avec une syntaxe du Les petits programmes de démons- 
&TIA(L.O).A(LN} type : tration listés ci-après vous permet- 
avec : &T.LAS(L2).A$(L50).A(0.2) tront de bien saisir les modalités 
e À. nom du tableau (par exemple : où A(0.2) désigne le premier élément d'utilisation de cette routine. 

À. B%. 225...) trié du tableau associé à A$, le tri lui- El 
Programme TRITABLEAU : ne 
DOS TOOL KIT 59 LOA MUST 

1 33 STA 9377 

2 FLAG  EQU $6 Flag rei,entier 34 RTS 

3 IN EQU $9 sindice du tri 3j" Dibut du programe----------- 
4 ECART  EQU #7 sEcart entre articies 36 ST OP 4954 2 

5 ECO EQU $8 ÿEcart indice 0 et tri 37 BEQ TRI 

6 START EQU #19 sPointeur ler Cl{sent du tri 38 CNP #53 ;’S” 

7 FIN EOU $18 sÿPointeur dernier {l{ment 39 BEQ SORT 

8 ARTI  EGI! $FA sPointeur tenporaire 4 JNP $DEC9 SYNTAX ERROR 

9 ART2  EQU $FC Pointeur tenporaire 41 SORT  JSR CHRSET 

10 CHA2  EQU $#FE ÿPointeur temporaire 42 JSR CHKCONM 

Hi NOVE  EQU $IE sÿPointeur tenperaire 43 JSR FRNUN 

12 CSTART EQU $%E0 ÿPointeur ler €] {sent CÜtableau | 44 JSR GETAER 

13 CARTI EQU $E2 sPointeur CÜtableau 45 DEY 

14 CART2 EQU $E4 ÿPointeur COtableau 46 DEY 

15 TECART EQU $10 ;Ecart ler tableau 47 STY PARTIEL 
16 TECO EQU $E6 sEcart {1 (ment ler tableau 48 MP TS 

17 CECART EQU $E7 ;Ecart CDtableau 49 TRI LA #4FF 

18 PARTIEL EOU $E8 90 STA PARTIEL 
19 SARA  EQU 538 sPointeur du tableau 51 JSR  CHRGET 
29 CHRGET EQU $81 92 TS JSR  CHKCOM 
21 CHRGOT EQU $87 53 JSR FRNU 
22 FRAMM EUU 30047 Evalue dans FAC 34 JSR GETADR  ;Rend FAC entier 
23 CHKCOM EQU S$0EBE Teste ‘,’ 55 SfY HO indice du tri 
24 NON  EQU $EAF9 sTransfert M vers FAC 56 JSR CHKCEN 
25 SOUST EQU $EBB2 sFAC - ARG S7 JSR PTRGET 
26 GETADR EQU $E752 sRend entier FAC 58 STA START 
27 PTRGET EQU S$DFE3 59 STA ART] 
28 OR6 $94A6 68 SIY START+1I 
29/32 Initialisation AAPERSAD------ él STY ARTI+] 

D 
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Une routine de tri rapide 
en assembleur 


e |: indice sur lequel on trie {nu- 
méro de la rubrique) 

e Afi,0) : premier article du tri 

e A.N) : dernier article du tri. 


On peut ne trier qu'une partie des 
articles en fixant les bornes. Par 
exemple : 


Gérard Rigaud 


même se faisant sur la rubrique | de 
A$. du 2éme au 50ème article. 


Il est également possible de trier sur 
une parte d'article, avec une instruc- 
tion du type : 

&S.8.1.A$(1.2).A$(1.50) 


par laquelle le tri se ferait à partir du 
8ème caractère des articles de A$. 


62 JSR CHKCEM 

63 JSR PTRGET 

64 STA FIN 

6 STY FIN4] 

66 JSR CALCE ;lnitialise pointeurs 

67 LDA EC 

68 STA TECD 

69 LDA ECART 

70 STA  TECART 

71 STX FLA6 

72 JSR CHRGOT 

73 OP #$2C sCOTABLEAU ? 

74 BNE DEBUT Non 

75 JSR  CHRGET 

76 JSR FTRGET 

77 STA  CSTART 

78 STA CARTI 

79 STY CSTART+1 

80 SIY CARTI+] 

8! JSR CALCUL 

82 LDA ECART 

83 STA  CECART 

84 ;—--—-D{but du tri------ 

85 DEBUT LDA #0 

84 STA  IND sFtag d’ (change 

87 SUIWANT CiC Calcul adresse 2{ne article 

88 LOA TECART 

89 ADC ART! 

90 STA ART2 

91 LDA 40 

92 ARC ARTIH 

93 STA ART2+! 

94 CLC Calcul adresse 2{me article 

#5 LDA  CECART 

94 ADC CARTI 

97 SIA CART2 

98 LDA #9 

ss ADC CARTI+#I 

100 STA CART2+#] 

101 LDA FLAG 

102 CMP 45 sRtel ? 

103 BEQ RÉEL Oui 

104 TAY 

105 DEY 

106 OP #2 sEntier ? 

107 BEQ ENTIER  ;OU} 

108 LDA (ART1),Y 

109 STA MOVE+1 

110 LDA (ART2),Y 

111 STA CHA241 

112 DEY 

113 LDA CARTL),Y 

114 STA NOJE 

115 LDA GCART2) ,Y 

11é STA CHA2 

117 LOY PARTIEL 

118 COMP  INY 

119 LDA (CHA2),Y 

120 CMP  (MOVE),Y 
AÉSFFMIENNNE 
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121 BCC DEPL ;CHA2 ( CHAI 
122 BE RIEN ;DHA2 ) CHA! 
123 CPY HS Profondeur du tri 
124 8CC CONP 

125 BCS RIEN 

126 ENTIER SEC 

127 LDA (CART2),Y 

128 S8C  (ARTI) ,Y 

129 DEY 

130 LDA (ART2) ,Y 

131 SBC (ARTI),Y 

132 BPL RIEN ÿART2 = ou } ARTI 
133 @NI DEPL sART2 ( ARTI 
134 3—---- Recomence 9 l’article 1--—-- 
135 8DUCLE LDA CSTART  ;ler article 
136 STA CARTI 

137 LDA CSTART+] 

138 STA CARTI+I 

139 LDA START ler article 
140 STA ARTI 

141 LDA START: 

142 STA ARTI+I 

143 BNE DEBUT 

le Article suivant------ 

145 SUITE LDA CART2 Article suivant 
146 STA CARTI 

147 LDA CART2+#1 

148 STA CARTI+] 

149 LDA ART2 Article suivant 
150 STA ARTI 

151 LDA ART24] 

152 STA ARTI+! 

153 BNE SUIVANT 

154 ;-—--Test de fin du tri--—-- 

155 RIEN LDA ARF2 

156 Of FIN 

157 ENE SUITE 

158 LDA ART2+1 

159 CMP FIN+] 

160 BNE SUITE 

1éi LDA © 

162 BNE BOUCLE 

163 RTS 

LS A SE — 
165 REEL  LDA ART2 

164 LDY ART2+i 

167 JSR MOVFH sART2 dans FAC 
168 LDA ART! 

169 LDY ARTI+i 

170 JSR  SOUST SART2 - ARTI 

171 BPL RIEN SART2 = ou } ARTI 
1725" Diplacenent des pointeurs------ 
173 DEPL SEC Calcul (l{ment 0 de ARTI 
174 LDA ART! 

175 S8C TECO 

174 STA ARTI 

177 LDA ARTI+ 

178 SBC #0 

179 SIA ARTI+! 
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189 SEC {Calcul (i(nent D de ART2 212 BIT $1i {Chaine ? 
181 LDA ART2 213 Bi DIN! Oui 
182 SBC TECO 214 LOX #45 
183 STA HOVE 215 BIT $81 sRtel ? 
184 LDA ART2+1 21é BPL DIM! Oui 
185 s&C 49 217 LOX #82 
186 STA NOVE+1 218 DINI  LOY #4 Dimension ? 
187 LOY TECART 219 LDA (SARA),Y 
188 DEY 226 ENP 64] jUne seule ? 
189 STA JND Positionne flag 221 BEG Di Oui 
190 SAP  LDA (ART) ,Y 222 LDY #48 
191 PHA 223 LDA (SARA) ,Y :Taille 1)re dimension 
192 LDA (NOVE),Y 224 D TAY 
493 STA (ARTI),Y {change 2 dans 1 22 LDA 40 
194 PLA 226 STA ECART 
195 STA (MOVE) ,Ÿ change { dans 2 227 STA ECD 
194 DEY 228 STA CECART 
19? BPL SAP 229 CC Calcul {cart entre articles 
198 LDY CECART 230 D2 TXA dd 2 
199 BEG RIEN 231 ADC ECART 
200 DEY 232 STA ECART 
201 SMAPI LDA (CARTI),Y 233 DEY 
202 PHA 234 BME D2 
203 LDA (CART2) ,Y 235 LDY IN 
204 STA (CARTI) ,Ÿ stchange 2 dans 1 234 BEQ D4 
205 PLA 237 CLC cart Cltment O0 et tri 
206 STA (CART2),Y s{change 1 dans 2 238 D3 TXA SE 
207 DEY 239 ADC ECO 
208 BPL SwPl 240 STA ECQ 
209 EI RIEN 241 DEY 
210 ;------- Sous programe recherche pointeurs------- 242 BNE 03 
211 CALCIH LEDX #43 243 04 RTS 

9B68- CO OF 90 F3 B0O 32 38 Bi 
RECAPITULATION 9B70- FC F1 FA 88 B1 FC Fi FA 
SAé- A9 B1 9B78- 10 26 30 45 ÀS E0 85 E2 
SAA8- 8D F6 03 À9 FA 8D F7 03 9B80- ÀS Ei 85 E3 ÀS5 19 85 FA 
9480- 60 C9 54 FO iÂ C9 53 FO 9B88- ÀS5 14 85 FB DO 94 ÀS Ed 
9488- 03 4C C9 DE 20 Bi 00 20 9B90- 85 E2 ÀS ES 85 E3 A5 FC 
SACO- BE DE 20 67 DD 20 S2 E7 9B98- 85 FA À5 FD BS FB DO 84 
SAC8- 88 88 84 E8 4C Dé 94 A9 9BAO- ÀS FC CS 1B DO E8 ÀS FD 
SADO- FF 85 E8 20 Bi 00 20 BE 9BA8- CS 1C DO E2 ÀS 09 DO CC 
SAD8- DE 20 67 DD 20 52 E7 84 9BB0O- 60 ÀS FC A4 FD 20 F9 EâÂ 
SAE0- 09 20 BE DE 20 E3 DF 85 9BB8- ÀS FA À4 FB 20 B2 EB 10 
9AE8- 19 85 FA 84 14 84 FB 20 9BCO- DF 38 A5 FA ES Eé 85 FA 
9AFO- BE DE 20 E3 DF 85 1B 84 9BC8- ÀS FB E9 00 85 FB 38 À5 
9AF8- 1C 20 01 9C ÀS 08 85 Eé 9BDO- FC ES Eé 85 iE ÀS5 FD E9 
9B00- ÀS 07 85 1D 86 06 20 B7 9BD8- 00 85 1F A4 1D 88 85 09 
9B08- 00 C9 2C DO 15 20 B1 00 9BEO- B1 FA 48 B1 1E 91 FA 68 
9B10- 20 E3 DF 85 E0 85 E2 84 9BE8- 91 1E 88 10 F3 A4 E7 FO 
9818- Ei 84 E3 20 01 9C ÀS 07 9BF0- ÀAF 88 B1 E2 48 Bi Ed 91 
9B20- 85 E7 A9 00 85 09 18 A5 9BF8- E2 68 91 E4 88 10 F3 30 
9828- 1D 45 FA 85 FC A9 00 45 9C00- 9F À2 03 24 11 30 08 A2 
9830- FB 85 FD 18 ÀS E7 65 E2 9C08- 05 24 81 10 02 À2 02 A0 
9838- 85 E4 A9 00 65 E3 85 ES 9C10- 04 B1 9B C9 01 FO 04 A0 
9B40- ÀS 06 C9 05 F0 6B A8 88 9C18- 08 B1 9B À8 A9 00 85 07 
9848- C9 02 FO 22 B1 FA 85 1F 9C20- 85 08 85 E7 18 84 65 07 
9BS50- Bi FC 85 FF 88 B1 FA 85 9C28- 85 07 88 DO F8 A4 09 FO 
9858- 1E Bi FC 85 FE A4 E8 C8 9C30- 09 18 8 65 08 85 08 88 
9860- Bi FE Di {E 90 5B DO 38 9C38- DO F8 40 

____ 
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EXEMPLES 
10 PRINT CHR$& (4)"BRUNTRITABLEAU 
.0BJO" 


20 TEXT : CLEAR : HOME 

30 DIM ÀA$(C3,9) ,A(9): PRINT “TRI S 
UR 3 eme ELEMENT" 

40 FOR I = 0 TO 9: FOR J = 0 TO 3 
ASCJ,I) = CHR$S (74 — I): PRINT 
AS(J,1)"."3;:ACI) = 1: PRINT À 
CI)" “3: NEXT : PRINT : NEXT 
: VTAB Î: HTAB 25: PRINT "TRI 
MACHINE" 

90 & T,3,4$(3,0),A$(3,9) 

60 FOR I = O0 TO 9: HTAB 24: FOR J 
= 0 TO 3: PRINT A$(J,1)"."AC 
1)" ";: NEXT : PRINT : NEXT 

70 PRINT "TAPER UNE TOUCHE" ;: GET 
X$: HTAB 1: INUERSE : PRINT * 
LE MEME EXEMPLE AVEC COTABLER 
U" :; NORMAL 

75 CLEAR : DIM ÀA$(3,9),A(9): PRINT 
FTRI SUR 3 eme ELEMENT" 

80 FOR I = O0 TO 9: FOR J = 0 TO 3 
ASCJ,1) = CHR$ (74 — 1): PRINT 
ASCJ,1)","3:ACI1) = 1: PRINT À 
CI)" "3: NEXT : PRINT : NEXT 
: VUTAB 13: HTAB 23: PRINT °MA 
CHINE COTABLEAU" 

90 & T,3,4$(3,0) ,A$(3,9) ,AC0)D: REM 

Transfere aussi AC) qui pe 
ut avoir egalement 2 dimensio 
ns 

100 FOR I = O0 TO 9: HTAB 24: FOR 
J = 0 TO 3: PRINT A$(J,1)"."ÀA 
C1)" "3: NEXT : PRINT : NEXT 


110 VTAB 23: ENO 


5 PRINT CHR$ (4)"BRUNTRITABLEAU. 
OBJ0" 

10 TEXT : CLEAR : HOME 

20 DIM A$(20): PRINT "TABLEAU" 

30 FOR 1 = O0 TO 20:A$(I1) = CHR$ 
(85 - 1) + CHR$ (BS5 — 1) + STR$ 
(65 + 1): PRINT AS$(ID: NEXT : 
UTAB 1: HTAB 9: PRINT "TRINO 
RMAL" 

40 & T,2,4$8(0) ,A$(20): REM TRI 
TABLEAU ENTIER 

50 FOR I = O0 TO 20: HTAB 10: PRINT 
AS$(I): NEXT : UTAB 1: HTAB 19 
: PRINT "TRI 3eme” 

60 & S,3,0,A5(0),A$(20): REM TRI 
À PARTIR DU 3eme CARACTERE 

70 FOR I = O0 TO 20: HTAB 20: PRINT 
A$(I): NEXT : VTAB 1: HTAB 29 
: PRINT "TRI 4eme" 

80 & S,4,0,A$(0),A$(20): REM TRI 
À PARTIR DU 4eme CARACTERE 

90 FOR I = O0 TO 20: HTAB 30: PRINT 
A$CI): NEXT : INVERSE : PRINT 
“TRI À PARTIR DU 1,3,4 CARACT 
ERE": NORMAL 

100 UTAB 23: END 


9 PRINT CHR$& (4) "BRUNTRITABLEAU. 


10 
20 


30 


40 


90 


60 


70 
80 


OBJ0O"* 
TEXT : CLEAR : HOME 
DIM AZ(50): PRINT “TRI TABLEAU 
ENTIER 1 DIMENSION* 

FOR I = O TO S50:A%(I) = 100 - 
1: PRINT 4Z{1);" “52: NEXT : 
PRINT : PRINT “TRI MACHINE" 
& T,0,4%(0) ,A%(50): REM TRI 

TABLEAU ENTIER 

FOR I = O0 TO 50: PRINT AZ(1);° 

“53: NEXT : PRINT 

PRINT "TAPER UNE TOUCHE :;: GET 
X$: PRINT : CLEAR 

DIM ÀAZ(50): PRINT "TRI TABLEAU 
ENTIER 1 DIMENSION®* 

FOR I = O TO S50:A%(I) = 100 - 
1: PRINT 4Z(I1);" #3: NEXT : 
PRINT : PRINT "LE MEME , TRI 
BASIC , C’EST PLUS LONG !" 


90 X = 0: FOR I = 50 TO 1 STEP - 


100 


110 
120 


12 IF AZI) > = AZCI — 1) THEN 
110 
X = ACID :AZ%CI) 
CI — 12 = X 
NEXT : IF X THEN 90 
FOR I = O TO 50: PRINT A1); 
u "5: NEXT : PRINT 


AZI — 1):ÀZ 


5 PRINT CHR$ (4)*BRUNTRITABLEAU. 


10 
20 


30 


40 


90 


110 
120 


OBJO" 

TEXT : CLEAR : HOME 

DIM A%(3,10): PRINT "TRI TABLE 
AU ENTIER" 

FOR I = O0 TO 10: FOR J = O0 TO 
3:A%CJ,1) = 20 - 1 + J: PRINT 
AACJ,1)3;" "3: NEXT : PRINT * 
*";: NEXT : PRINT : PRINT "TR 
I MACHINE" 

& T,0,4%4(0,0),4%(0,10): REM T 
RI SUR ELEMENT 0 TABLEAU ENTI 
ER 

FOR I = O0 TO 0: FOR J = O0 TO 
3: PRINT AZ(J,1)5" "3: NEXT 
: PRINT “*x";: NEXT : PRINT 

PRINT “TAPER UNE TOUCHE" ;: GET 
X$: PRINT : CLEAR 

DIM A%(3,10): PRINT "TRI TABLE 
AU ENTIER" 

FOR I = O0 TO 10: FOR J = 0 TO 
3:AZCJ,1) = 20 - I + J: PRINT 
AACJ,1);" “3: NEXT : PRINT ” 
*"3;: NEXT : PRINT : PRINT "LE 

MEME , TRI BASIC" 

= 0: FOR I = 10 TO 1 STEP - 

1: IF AZ(CO,1) > = AZ(O,I - I 
) THEN 110 

FOR X = 0 TO 3:2 = AX(X, 1) :A% 
CX,1) = AXCX,I1 — ID):AXEX,I — 

1) = Z: NEXT 

NEXT : IF X THEN 90 
FOR 1 = O0 TO 10: FOR J = O TO 
3: PRINT AZ(J,1)3" "35: NEXT 
: PRINT "#x";: NEXT : PRINT 
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S PRINT CHR$ (4) "BRUNTRITABLEAU. 


0BJ0" 

10 TEXT : CLEAR : HOME 

20 DIM A$(50): PRINT “TRI TABLEAU 
CHAINE 1 DIMENSI ON" 

30 FOR 1 = O0 TO S0:A$CI) = STRé 
(99 - 1): PRINT A$SCID3" "3: 
NEXT : PRINT : PRINT "TRI MA 
CHINE" 

40 & T,0,A$(0),A8(50): REM TRI T 
ABLEAU ENTIER 

50 FOR I = O TO 50: PRINT A$(1);" 

“3: NEXT : PRINT 

60 PRINT “TAPER UNE TOUCHE" ;: GET 
X$: PRINT : CLEAR 

70 DIM A$(50): PRINT "TRI TABLEAU 
CHAINE 1 DIMENSION" 

80 FOR I = O TO S0:A$CI) = STR$ 
(99 - 1): PRINT A$CID;3" “3: 
NEXT : PRINT : PRINT "LE MEM 
E , TRI BASIC , C’EST PLUS LO 

NG ‘" 

90 X = 0: FOR I = 50 TO 1 STEP - 
11 IF ASCID > = A$CI - 1) THEN 
110 

100 X$ = ASCID:AS$CID = ASE - 1):A 


110 
120 


s 


10 
20 


30 


4€ 


50 


110 
120 


PCI -—- 1) = X$:X = 
NEXT : IF X THEN 90 

FOR ! = O0 TO 50: PRINT A$(1); 
L “3: NEXT : PRINT 


PRINT CHR$& (4) "BRUNTRITABLEAU. 


0BJ0" 

TEXT : CLEAR : HOME 

DIM A$(3,10): PRINT “TRI TABLE 
AU CHAINE" 

FOR I = 0 TO 10: FOR J = 0 TO 
3:A$CJ,1) = STR$ (20 — 1 + J 
>: PRINT A$CJ,1)3;" "3: NEXT 
: PRINT "*x"“:: NEXT : PRINT : PRINT 
"TRI MACHINE“ 

& T,0,A$(0,0),A$(0,10)2: REM TR 
I SUR ELEMENT O0 TABLEAU ENTIE 
R 

FOR 1 = 0 TO 10: FOR J = 0 TO 
3: PRINT A$CJ,1);" "3: NEXT 
: PRINT "*x‘“3;: NEXT : PRINT 

PRINT "TAPER UNE TOUCHE“ ;: GET 
X$: PRINT : CLEAR 

DIM A$(3,10): PRINT "TRI TABLE 
AU CHAINE" 

FOR 1 = 0 TO 10: FOR J = 0 TO 
3:ABCJ,1) = STR& (20 - 1 + J 
>: PRINT A$(J,1)3" “3: NEXT 
: PRINT “*%"3;: NEXT : PRINT : PRINT 
*LE MEME , TRI BASIC" 

X = 0: FOR I = 10 TO 1 STEP - 
1: IF A$SCO,I1) > = A$CO,I - 1 
>) THEN 110 
FOR X = 0 TO 3:2$ = A$X,1):A 
SCX,1) = ASCX,I — IDIASCX,I — 
1) = 2$: NEXT :X = 1 
NEXT : IF X THEN 90 
FOR 1 = O0 TO 10: FOR J = O0 TO 


3: PRINT A$(J,1);" ";: NEXT 
: PRINT "x"3: NEXT : PRINT 
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S PRINT CHR$ (4)"BRUNTRITABLEAU. 


10 
20 


30 


40 


50 


60 


70 


80 


i O0 


110 
120 


OBJO* 
EXT : CLEAR : HOME 
DIM ACS0): PRINT "TRI TABLEAU 


REEL 1 DIMENSION"* 
FOR I = O TO SO:A(I) = 100 -— I 


: PRINT ACID; "3: NEXT : PRINT 
: PRINT "TRI MACHINE" 
& T,0,A(0),A(50): REM TRI TA 


BLEAU ENTIER 


FOR Ï = O0 TO 50: PRINT A(I1);"* 


“5: NEXT : PRINT 
PRINT "TAPER UNE TOUCHE" ;: GET 
X$: PRINT : CLEAR 
DIM A(50): PRINT “TRI TABLEAU 


REEL ÿ DIMENSION" 
FOR 1 = O0 TO SO:A(1) = 100 - 1 
: PRINT A(1);”7 "5: NEXT : PRINT 
: PRINT "LE MEME , TRI BASIC 
C’EST PLUS LONG !" 
0: FOR I = 50 TO i STEP - 
: IF ACID > = ACI - 1) THEN 
10 
X = A 
1) 
NEXT IF X THEN 90 
FOR I = O TO S0: PRINT A(I1);" 
5: NEXT : PRINT 


D:AC1) = ACI - 1):ACI - 





S PRINT CHR$ (4) *BRUNTRITABLEAU. 


10 
20 


30 


40 


50 


118 
120 


OBJ0" 

TEXT : CLEAR : HOME 

DIM A(3,10): PRINT "TRI TABLEA 
U REEL" 


FOR 1 = O TO 10: FOR J = O0 TO 
3:ACJ,1) = 20 - I + J: PRINT 


ACJ,1)23" "3: NEXT : PRINT “+ 
“;:: NEXT : PRINT : PRINT ‘TRI 
MACHINE” 

& T,0,A(0,0)2,A(0,10)2: REM TRI 


SUR ELEMENT 0 TABLEAU ENTIER 


FOR 1 = O TO 10: FOR J = 9 TO 
3: PRINT ACJ,1):" "3: NEXT : 

PRINT °#x"5;: NEXT : PRINT 
PRINT "TAPER UNE TOUCHE": : 
X$: PRINT : CLEAR 
DIM A(3,10): PRINT 
U REEL* 

FOR 1 = O0 TO 10: FOR J = O0 TO 
3:ACJ,1) = 20 - 1 + J: PRINT 
ACJ,1)3;" "3: NEXT : PRINT ‘+# 

“;35 NEXT PRINT : PRINT "LE 
MEME , TRI BASIC* 

= 0: FOR 1 = 10 TO 1 STEP - 

1: IF ACO,I1) > = A(O,I - 1) THEN 
110 

FOR X = 0 TO 3:2 = A(X,1):ACX 

1) = ACX,I1 - 1):A€X,I — 12 = 

Z: NEXT 
NEXT : 


GET 


"TRI TABLEA 


IF X THEN 90 


FOR | = 0 TO 10: FOR J = 0 TO 
3: PRINT A(J,1)3" "3: NEXT : 
PRINT 


PRINT "x*;; NEXT : 


| 
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Effets stroboscopiques sur 


la page graphique 


Olivier Herz 


SU Y À QUELQUE 
CHOSE Au CLOCHE 
DANG LE PROGRAMME . 


L'idée de ce programme m est venue 
d'une idée originale publiée dans 
Softside Magazine 


numéro 6 de Poms ont sans doute 
remarqué un curieux effet strobosco- 
pique dans le programme de dé- 
monstration de ia Tortue Ampersand 
de Jacques Duma (DEMO TOR- 
TUE). Cet effet se présentait sous la 
forme de bandes en inverse se dé- 
plaçant lentement sur une image po- 
sitive. Il avait lieu alors que l'on 
“switchait” entre les pages graphi- 
ques haute résolution. la page 2 
étant le négatif de la page 1: il était 
dù à un phénomène stroboscopique 
entre la fréquence de balayage de 
l'écran vidéo et la fréquence de 
switch entre les pages graphiques. Si 


Ceux qui ont acheté la disquette du à 





Nversion de la page 1 avec résultat dans la 
page 2 : 


MEMI EQU 252 
MEM2 EQU 254 


AO 20 LDY #32 :octet haut de la page 1 

84 FD STY MEMI+1 

A0 40 LDY #64 :octet haut de la page 2 

84 FF STY MEM2+1 

A0 00 LDY #0 :pour l'adressage indirect indexé 
84 FC STY MEMI 

84 FE STY MEM2 

ZER B1 FC LDA (MEM1).Y :octet de la page 1 
49 FF E@R #255 :on l'inverse 

91 FE STA (MEM2).Y résultat dans la page 2 

C8 INY :on boucle sur Y de 0 à 255 (1 page mémoire) 
DO F7 BNE ZER 

E6 FD INY MEMI+1 

E6 FF INY MEM2+1 

A5 FB LDA MEMI+1 

C9 40 CMP #64 :on boucle sur les pages 32 à 63 
DO ED BNE ZER 

60 RTS 


Bien sûr. la 2éme page graphique 
peut ne pas être l'inverse de la 1ère. 
De plus. cet effet reste si on rem- 
place l'une ou les deux pages graphi- 


ques haute résolution par une page 
texte où graphique basse résolution. 
car seule la vitesse de balayage de 
l'écran entre en jeu. pas le contenu ple. = 


par exemple l'on se contente d'exé- 
cuter les instructions en assembleur 
suivantes. la période (2 switches) est 
de 11 micro-secondes (voir La Pra- 
tique de l'Apple N° volume 3) : 


ZER BIT $C054 
BIT $CO55 
JMP ZER 


En faisant varier cette fréquence. on 
peut obtenir des effets stroboscopi- 
ques 


Nous vous proposons de bien visuali- 
ser un tel effet en faisant varier la fré- 
quence de switch des pages graphi- 
ques avec les paddles : la manette O 
contrôlera le temps d'affichage de la 
page 1 et la manette 1 celui de la 
page 2. On peut utiliser au choix un 
joystick ou 2 manettes. 


Nous utiliserons les deux routines 
{relogeables) en assembleur suivan- 
tes. entrées en mémoire par la mé- 
thode de SIILAM {voir Poms 2 
page 61 ou Recueil page #4). 


Switch des pages avec pauses proportionnelles 
aux paddles : 


PREAB EQU $FBIE :lit dans A la manette X 

KBD EQU $C000 :clavier (-16384) 

KBDSTRB EQU $C010 strobe du clavier (-16368) 
PAGEI EQU $C054 switche vers la page 1 (-16300) 
PAGE2 EQ@U $C055 switche vers la page 2 (-16299) 


ONE 2C 54 CO BIT PAGE1 switche vers la page 1 
A2 00 LBX #0 

20 1E FB JSR PREAB ilit la manette O 

2C 55 C0 BIT PAGEZ2 .switche vers la page 2 

A2 01 LDX #1 

20 1E FBJSR PREAB :lit la manette 1 

2C 00 CO BIT KBD :touche enfoncée ? 

10 EB BPL ONE 

2C 10 C0 BIT KBDSTRB remise à O du clavier 
60 RTS 


de l'écran Bien entendu. dans ces 
différents cas. il faudra utiliser les 
autres switches graphiques de l'Ap- 





10 REM  STROBOSCOPE 
20 REM 


100 TEXT : HOME HGR : VTAB 21: 
"NOM DE LA PAGE GRAPHIQUE ? " 
5A$S: POKE — 16302,0: 


(4)"BLOAD'A$S" ,A$2000" 

110 À$ = "300:2C 54 CO A2 00 20 1E 
FB 2C S5 C0 A2 01 20 1E FB 2 
C 00 CO 10 EB 2C 10 CO 60": 
{000 


INPUT 


PRINT CHR$& 


GOSUB 


120 ÀA$ = "320:A0 20 84 FD AG 40 84 
FF A0 00 84 FC 84 FE B1 FC 4 
$ FF 91 FE C8 DO F7 Eé FD Eé 


FF AS FD C7 40 DO ED 40°: GOSUB 
1000 

130 CALL 800: CALL 768: TEXT HOME 
: END 

1000 AS = AS + *“ N D9CÉG": FOR 1 = 


1 TO LEN (A$): POKE Si1 + I, 
ASC { MIDS (A$,1,1)) + 128: NEXT 
POKE 72,0: CALL - 144: RETURN 
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Je n'y croyais pas. Mon métier, c'est 
d'écrire. Trente années de clavier in- 
tensif mal tempéré. de la machine 
mécanique à l'Apple Il. avec une im- 
possibilité radicale de rédiger plus de 
deux lignes - illisibles - à la main. 
Alors la souris de Macintosh. non 
merci. ce n'était pas pour moi. 


Deux heures ont suffi pour que je 
me retrouve, inconditionnel. dans le 
camp de la souris, avec des crampes 
à la main droite le premier jour et un 
immense sentiment de liberté les 
jours suivants. 

Je répète : mon métier c'est d'écrire. 
pas de faire des routines, encore 
moins de la routine. Et surtout pas 
de taper, même si je tape très vite. Il 
peut m'arriver de faire des program- 
mes en BASIC, en Pascal, en Super- 
pilot. Ce n'est pas l'essentiel. 


Alors j'ai vite compris que Macintosh 
était la première ‘’machine” qui per- 
mette de créer, sans aucune 
centrainte externe, à un détail près 
que je soulignerai tout à l'heure. Je 
dis bien “détail” parce que c'est pas- 
sager. et j'écris bien ‘’machine” parce 
que le mot “ordinateur” ne me vient 
pas au clavier. J'ai envie de dire 
‘robot de bureau”. 


Premier temps, je sors Mac de son 
carton. Emerge un petit bonhomme 
ventu haut comme trois pommes 
(bien sûr). avec un petit écran et un 
petit clavier détachable. Attention. 
encore un cliché à voiler une fois 
pour toutes : tous les claviers alpha- 
numériques à touches classiques sont 
de la même taille Donc. celui de 
Mac a beau paraître petit. il ne l'est 
pas. pour la bonne raison qu'il n'y a 
pas de "petit clavier”. Pourquoi sem- 
ble-til petit” ? Parce qu'il ne lui 
reste que deux touches de fonction, 
dont lune, au moins, le célèbre 
Control” qui s'orne ici d’un sigle bi- 
zare que l'on identifie très vite, ne 
demeure que par concession au 
passé 


Une fois posé le bonhomme sur le 
bureau - qu'il a l'air menu à côté du 
gros” Apple //e - j'enfonce la fiche 
dans la “machine” puis dans la prise; 
je branche le clavier. En une dizaine 
de secondes. c'est fini c’est-à-dire 
que tout commence dJ'enfonce dans 
la fente avant un gros bout de carton 
avec une espèce de serrure en métal 
que je sors de ma poche (il paraît 
que c'est une disquette 3.5 pouces), 
et je mets le contact. L'écran vit, des 
carrés. des rectangles gris sillonnent 
l'espace gris-blanc. Un menu ? Il pa- 
raît. 


Moi. je vois une autre chose, 
étrange, inattendue : un manuscrit 
copié par un moine du Moyen-Age. 
Cette première impression se confir- 
mera les jours suivants : avec Mac, 
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nous franchissons une formidable 
étape de rétro-innovation, c'est-à-dire 
de bond dans les deux directions du 
temps, le passé et l'avenir. 

Le passé: jusquà l'apparition de 
l'imprimerie, i ne pouvait V avoir de 
texte que personnel (on ne disait pas 
encore "personnalisé”), puisque cha- 
que copie. dans sa forme. était un 
original, avec la calligraphie. les orne- 
ments, la mise en page du copiste. 
L'imprimerie, fantastique découverte 
bien sûr, est venu jeter là-dessus sa 
chape d’uniformité Beaucoup de 
livres pour beaucoup de monde. 
mais tous les mêmes {les livres) ou 
presque. Allez vous étonner, après 
cela, que des Apollinaire, des Mi- 
chaux ou des Prévert aient éprouvé 
le besoin de faire des calligrammes, 
de réinventer la forme, de lui redon- 
ner sa place. 

L'avenir: c’est exactement ce que 
ramène Macintosh. Les poètes, les 
écrivains, les créateurs deviennent 
tous des éditeurs, des imprimeurs, 
sur cette machine” dont l'écran re- 
produit presque parfaitement la page 
écrite. la page manuscrite. 


Sur ma disquette, deux programmes. 
MacWiite - traitement de texte - et 
MacPant - traitement graphique. Du 
jamais vu. du jamais imaginé. l'un 
comme l'autre. MacWrite : neuf jeux 
de caractères {dont un gothique). six 
variétés d'édition (ombre, relief. itali- 
que .….), cinq dimensions d'impres- 
sion, du 9 au 24 points, que l'on 
peut combiner, que l’on peut aug- 
menter en créant ses propres caractè- 
res. Et toujours. toujours, toujours 
sans avoir jamais. jamais. jamais be- 
soin de connaître un seul nom de 
touche de contrôle, de se demander 
si c'est CTRL-Elrase) ou CTRL- 
D(elete) qui signifie ”’effacer”, s’il faut 
faire ESC-A ou ESC-Q, CTRL- 
Save), CTRL-L{oad). 


La libération, la voici. tout est à 
l'écran, écrit en clair: fermer”, 
couper”, “ouvrir”. coller”. ‘effa- 
cer”. “enregistrer” (ouf! Du même 
coup, nous voici libérés des affreux 
barbarismes du genre sauvegarder”. 
sauver”, comme si tous les textes et 
programmes d'ordinateurs étaient 
toujours des chefs d'oeuvre en péril). 
Et pourtant. votre écran semble vide, 
en tout six mots sur la ligne du haut. 
Autant de tiroirs que vous ouvrez 
d'un coup de souris magique. sans 
plus v penser. comme si votre main 
faisait désormars ‘cerveau à part” 


Or, toutes ces commandes en arbo- 
rescence - il doit V en avoir plus de 
cinquante dont vous n'avez pas à 
vous souvenir - demeurent les 
mêmes pour tous les programmes de 
Macintosh. J'ai essayé Multiplan et 
MacPaint (je vais y revenir). Il y aura, 
très vite, la série des PFS les Perso- 


MacArticle 


Daniel Garnc 


nal Files System. chef d'oeuvre de 
simplicité et d'efficacité), Multichart. 
MacDraw et bien d'autres program- 
mes. Je sais déjà que je n'aurai pas à 
les apprendre, à me redemander dix 
fois si c'est CTRL-P, CTRL-Q ou 
même ‘T” pour “Transfert” Cette 
fois, nous y sommes : l'ordinateur est 
au service de l’homme, de tous les 
hommes qui savent lire et écrire. et 
non plus de l'informaticien seul. Et si 
Macintosh était le premier vrai micro- 
ordinateur ? Il faut lui donner un 
autre nom, celui-là est déjà pris. 
Pourquoi pas un BUREAUBOT ? 


Je reviens à MacWrite : avec Macin- 
tosh, pas question d'écrire en style li- 
néaire. La machine ne l’est pas puis- 
qu'elle permet sans cesse de se 
promener partout dans le système. 
Avec MacWiite, je Favoue. j'ai un 
truc sentimental tout bête. J'ai deux 
enfants en bas âge, Nathanaël et 
Marie-Laëtitia. Ma femme nest pas 
très attirée par les ordinateurs et je 
sais bien pourquoi : ils ne permettent 
pas d'orthographier correctement le 
prénom de nos enfants. Quelle ‘’ma- 
chine” vous sort le ”i”* avec un tréma 
et le célèbre ‘e pris dans a où dans 
0”? O surprise! O merveille* Mac 
sait faire tout ça. et bien d’autres 
choses encore. J’ai encore le clavier 
QWERTY et pourtant, tous les ac- 
cents sont là. À l'écran. Ÿ compris le 
circonf.exe, qui se pavane sur les 
a”, les ‘’o”, les ”’u” le plus naturelle- 
ment du monde, comme s'il était 
tout à fait courant. pour un accent 
circonflexe, de se montrer grandeur 
nature sur un écran d'ordinateur. 


Je saute à MacPaint. C'est - évidem- 
ment - tout simple: deux coups de 
souris. Là, ce sera bref. Parce que 
MacPaint ne se raconte pas. il se 
dessine. Et je ne sais pas dessiner. 
Mais je peux tout de même 
comprendre qu'il y a là tout ce dont 
un dessinateur a toujours eu besoin 
et n’a jamais osé espérer trouver un 
jour: une gomme. du papier. un 
crayon. Mais aussi des mines de 
tailles différentes à un coup de souris 
les unes des autres, des fonds. des 
tas de fonds que l’on peut répandre 
à volonté, aux dimensions et aux 
formes que l’on veut. Et une main 
qui vous fait faire le tour de la page 
en promenant votre dessin dans les 
recoins secrets de l'écran. Et une 
loupe pour les retouches, et une 
brosse, et une possibilité de changer 
la taile des dessins, et un lasso pour 
capturer la partie du chef d'oeuvre 
dont vous désirez incruster votre 











texte. À moins que vous ne fassiez le 
contraire, que vous methez du texte 
dans le dessin: MacPaint accepte 
tous les jeux de caractères de Mac- 
Write, avec même quelques tailles 
supplémentaires. Je regrette encore 
plus que Jamais de ne pas savoir des- 
siner. Mais je suis heureux pour mes 
amis publicitaires. créateurs de mode, 
futurs auteurs de jeux d'aventure. de 
programmes didactiques, artistiques 
de tous poils La définition. 512 par 
342 points. suffit largement pour 
faire une recherche très élaborée. 
d'autant plus que vous imprimez. 


d’allais oublier l'imprimante, juste- 
ment, lImagewriter (tout est dans 
son nom), inséparable compagne de 
Mac: silencieuse, solide, graphique, 
accessible instantanément. Avec une 
petite coquetterie : trois modes d’im- 
pression en texte. Brouillon : j'appuie 
et c'est parti. C'est rapide, et c’est 
vraiment un brouillon que vous pou- 
vez retravailler sur papier. Au niveau 
supérieur. c'est standard : impression 
honnête, plus lente. Avec "Qualité 
Supérieure”, c’est tout simplement 
super: l'imprimante se met à faire 
des pleins et des déliés comme un 
’instit” de la vieille école, ceux qui 
vous tapaient sur les doigts si vous 
n'écriviez pas en ronde avec une 


plume sergent-major. Mac est plus 
gentil, il le fait faire par Imagewriter. 


J'en arrive aux deux contraintes. La 
première : il y a tellement de jeux de 
caractères, tellement de possibilités 
que vous ne pouvez jamais savoir 
combien de caractères, combien de 
lignes vous avez tapés Dommage, 
mais compréhensible. Plus grave : un 
document ne peut avoir plus de & 
pages. Après, il faut en ouvrir un 
autre. Et si vous écrivez un roman où 
les chapitres ont trente ou cinquante 
pages, que vous voulez couper, insé- 
rer de la 3ème à la 24ème ? Il faudra 
sans doute attendre la fin de l’année, 
lorsque Mac grossira, qu’il passera de 
128 à 512 K de mémoire centrale. 
En attendant, écrivez plutét des nou- 
velles, ou arrangez-vous pour que 
vos chapitres soient si bien écrits et 
composés qu'il devienne inutile de 
les retrafiquer. 


Restent les programmes. Oui, vous 
aurez un BASIC presque Microsoft, 
avec des lignes pas forcément numé- 
rotées : les numéros, c’est pour les 
*GOTO” et autres anachronismes du 
même genre. Et un ”’Instant Pascal”, 
comme il existe aux Etats-Unis un 
Instant Coffee” ou café soluble. Le 
Pascal est soluble, lui, parce qu’il a 


perdu son compilateur dans l’opéra- 
ton, ou du moins, s'il l’a conservé, 
vous n'en savez rien du tout. Vous 
écrivez votre programme sur la gau- 
che de l'écran. un coup de souris 
magique et il se déroule directement 
sur la partie droite, vous signale 
toutes les erreurs, tous les trucs qui 
ne vont pas. Et vous réparez sur le 
champ de bataille. Autant dire que 
s’il est beau, le Pascal. tout comme 
le BASIC. sa puissance est mesurée. 
Formidable pour apprendre, mais si 
vous avez des ambitions de type Bill 
Gates ou Bill Budge, alors non. Allez 
écrire vos Multiplan ou autres Pinball 
Set sur Lisa, un nouveau Lisa 
compatible Mac (ou linverse). Et 
vous en serez récompensés : une fi- 
gure animée sur Mac, c'est une gra- 
vure d'Holbein en mouvement {si le 
talent y est, bien sûr). 


Manque la couleur, c'est dommage. 
Mais la couleur y est, camouflée dans 
les PROMSs, prête à sortir lorsqu'un 
Roland Moréno pas quelconque vou- 
dra bien aller l'y débusquer. Le vrai 
problème. c’est l'écran. La télé n'est 
pas assez bonne et l'écran est cher. 
Dans six mois, dans un an, voire 
deux. lorsque le nombre de Macin- 
tosh vendus planera dans les un ou 
deux millions. = 





Magic Window IT à l'essai 


Alexandre Avrane 


La maijorité des logiciels de micro-in- 
formatique professionnelle se divisent 
en trois catégories principales : les 
éditeurs de texte. les tableurs et les 
gestionnaires de fichiers. Depuis l'ap- 
parition de l'Apple //e et de son cla- 
vier amélioré, la compétition entre 
éditeurs de texte est devenue féroce: 
récemment arrivé. Magic Window Il 
(MW2) est destiné à remplacer l'an- 
cienne version de Magic Window. 
dont le chiffre des ventes déclinait 
dramatiquement face à la poussée 
des nouveaux éditeurs. Apple Writer 
e et WordStar principalement. 


Repris par Bill Depew. il s'adresse 
aux possesseurs d'Apple Îl Plus (avec 
extension de 16K au moins) ou de 

e. Il conserve les qualités originelles 
de son prédécesseur en incluant plus 
de souplesse d'utilisation. mais de- 
meure très conservateur : aucun nou- 
veau concept du traitement de texte 
n'a été introduit. 


Adaptable à la plupart 
des configurations 


Magic Window Il se compose de 
l'habituel classeur renfermant la do- 


cumentation et deux disquettes pro- 
tégées La première permet de sau- 
vegarder. sur une disquette vierge. 
les paramètres de la configuration de 
l'utilisateur : MW2 offre à ce niveau 
une grande diversité de choix et ac- 
cepte la plupart des cartes 80 colon- 
nes et interfaces d'imprimantes. ainsi 
que lexistence dune éventuelle 
ROM LC. d'un clavier amélioré. ou 
de la modification de la touche Shift. 


La deuxième disquette est. bien sûr. 
la plus utiisée du système Magic 
Window. et contient le programme 
proprement dit. Après avoir ‘booté” 
il faut indiquer si l'on désire le char- 
gement optionnel du module permet- 
tant l'affichage sur 7@ colonnes, très 
agréable si l'on ne dispose pas de 
carte 80 colonnes. Il faut ensuite pla- 
cer la disquette sur laquelle ont été 
stockés les paramètres de configura- 
tion. où taper un simple Return pour 
utiliser les options par défaut de la 
disquette système. Îl s'agit donc 
d’une procédure relativement longue. 
mais qui offre l'avantage de charger 
en une fois tous les modules du pro- 
gramme : la disquette système peut 
donc être immédiatement rangée 
dans son étui. 


CRASH EREZ IFRS ES 
Éayn FRERES 
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Les utilisateurs des logiciels 
d'ARTSCI. et en particulier de Magji- 
calc (cf. Poms 9). ne seront pas dé- 
paysés. car les menus sont très simi- 
laires et se distinguent par une 
excellente ergonomie. Un bon point 
donc. reflétant la philosophie géné- 
rale de Magic Window Il qui se veut 
directement utilisable par tout opéra- 
teur non-informaticien. 


Une documentation faci- 
lement assimilable 


Cette approche se retrouve égale- 
ment dans la documentation améri- 
caine. qui tente en premier fieu de 
dédramatiser [apprentissage des rela- 
tions homme-ordinateur pour un 
‘non:initié” L'approche pédagogi- 
que est très progressive et le lecteur 
est invité à travailler sur plusieurs 
exercices. En revanche. la documen- 
tation se révèle quasiment muette sur 
les aspects techniques. je n'ai pu dé- 
terminer. par exemple. si Magic Win- 
dow Il utilisait automatiquement une 
éventuelle carte d'extension mémoire 
supplémentaire comme  Magicalc. 
autre produit d'ARTSCI. qui gère 
jusqu à 512K de RAM. La traduct'on 
en français. réalisée par Ordinateur 
Express. reprend la documentation 
originale. malheureusement en plus 
succint. pas d'exercices proposés. Il 
y manque également l'index et quel- 
ques détails (touches à utiliser pour 
générer des caractères spéciaux}. 


Porm's n° 11 


L'utilisation des deux manuels sera 
donc nécessaire. 


Une utilisation très 
compartimentée par des 
menus 


Six sections principales $ont offertes 
à partir du menu : 


e l'éditeur de texte proprement dit: 

e le sous-système de gestion des fi- 
chiers: 

e le sous-système de formatage per- 
met de spécifier les marges d'une 
page de texte: 

® le sous-système d'impression: 

e le sous-système de configuration. 
enfin, permet de modifier la confi- 
guration du clavier. de l'affichage 
vidéo ou des slots sans devoir re- 
charger le programme. 


Remarquons qu'il n'existe pas de 
fonction d'aide (help) disponible di- 


rectement 


Visualisation du 
texte page par page 


L'éditeur de texte est. bien évidem- 
ment. constamment utilisé. On est 
tout de suite frappé par l'ordonnan- 
cement ergonomique des touches de 
fonction : il ne m'a fallu qu'une di- 
zaine de minutes pour les mémoriser, 
alors que je ‘sèche encore parfois 
sur d'autres éditeurs que j'utilise cou- 
ramment ! Un autre point que j'es- 
time très positif est l'absence de dé- 
calage d'un caractère. sur la ligne sur 
laquelle se trouve le curseur. comme 
on peut l'expérimenter sur Apple 
Wiiter où le curseur est. par défaut. 
en mode d'insertion 


Un texte correspond à un ensemble 
maximum de 160x112 caractères par 
page et l'écran vidéo correspond à 
une fenêtre de 48. 70 ou 80 colon- 
nes sur 22 lignes. Cette fenêtre se 
déplace automatiquement pour sui- 
vre le curseur et l’on peut donc taper 
un texte au kilomètre sans regarder 
l'écran. 

Pour obtenir un affichage sur 70 co- 
lonnes en haute résolution. on doit 
charger le module adéquat au mo- 
ment du boot. il ne faut cependant 
pas en abuser car la mémoire dispo- 
nible est alors réduite de 26 à 13K. 


Une particularité de Magic Window Il 
est l'affichage permanent des coupu- 
res de pages. ce qui permet de mon- 
ter ou abaisser de quelques lignes un 
paragraphe qui ne doit pas être tron- 
qué. et évite donc de pénibles essais 
à têtons avec l'imprimante. Il est de 
plus possible de spécifier une ligne 
de titre répétée à chaque page. et 
d'écrire une ligne indifféremment en 
justification à gauche. à droite, cen- 
trée ou totale. 
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Un texte facile à entrer, 
difficile à corriger 


Les options de correction de l'éditeur 
ne sont malheureusement guère pra- 
tiques : il n'est pas possible de sup- 
primer ou déplacer un gros bloc de 
texte, et les fonctions de recherche 
ou remplacement d'une chaîne de 
caractères: sont rudimentaires: im- 
possible de spécifier une page ou 
une colonne pour la recherche. de 
convertir en majuscules une chaîne 
en minuscules et vice-versa. de re- 
chercher des caractères spéciaux ou 
de contrôle. 


Magic Window [l offre donc des qua- 
lités indéniables d'esthétique et d'er- 
gonomie pour la saisie rapide d'un 
texte, mais il sera parfois nécessaire 
de transférer le fichier vers un autre 
éditeur pour une correction 
complexe. 


Une impression facile 


Le sous-système d'impression offre la 
saisie de nombreux paramètres d'édi- 
tion: nombre d'exemplaires. numé- 
rotation automatique des pages. etc. 
L'impression est. de plus. facilitée par 
la visualisation permanente du texte 
tel qu'il sera imprimé. 


Une option intéressante est la possi- 
bilité de demander l'impression 
d'une liste de fichiers contenus sur 
une disquette dans l'ordre désiré et 
de manière automatique: ce n'est 
certes pas aussi performant que ce 
qu'il est possible d'obtenir avec le 
langage WPL d'Apple Writer //e. 
mais offre une manière simple et élé- 
gante d'obtenir un résultat proche. 


Il est également possible de deman- 
der une impression vers le lecteur de 
disquette pour une retransmission ul- 
térieure par modem ou un autre pé- 
riphérique. 


Une gestion de fichier 
parfois étonnante 


Tout d'abord. oh surprise. MW2 gère 
ses fichiers avec ce monstre préhisto- 
rique de lenteur qu'est le DOS 33: 
En corollaire, il est impossible de 
transférer des fichiers Pascal. CP:M 
(et, bien sûr. ProDOS). Magic Win- 
dow impose le suffixe “MW” à ses 
fichiers. Pourquoi une telle limitation 
qui complique les transferts entre édi- 
teurs ? 


L'utilisateur peut sauvegarder ou 
charger son texte par un fichier bi- 
naire. lisible uniquement par Magic 
Window IL qui inclut le texte lui- 
même ainsi que les paramètres de ta- 
bulation et de formatage de ce texte. 
Excellente idée. puisqu'elle évite 
d'utiliser un fichier supplémentaire de 
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paramètres. mais pourquoi ne pas 
avoir approfondie, par exemple en 
compactant le texte (un tabteau édité 
peut comprendre 70 % de caractères 
blancs contigus - il est donc compres- 
sible : cf. Poms 1@ sur le compac- 
tage des écrans HGR) ? 


il est d'autre part possible d'utiliser 
des fichiers textes au standard DOS 
3.3 mais. dans certain cas, j'ai ren- 
contré des bugs étranges. le pro- 
gramme sauvant inlassablement un 
fichier jusqu'à ce que la disquette soit 
pleine. ou se ‘'plantant” en chargeant 
un fichier Apple Writer. Prudence 
donc! 


En conclusion. Magic Window ll 
est un excellent logiciel pour la pre- 
mière frappe d'un document. grâce à 
ses excellentes qualités ergonomiques 
et l'utilisation très pratique du curseur 
qui permettent une saisie très rapide 
et sans migraine. mais il n'offre 
aucun aspect révolutionnaire dans 
son appproche et souffre de quel- 
ques lacunes qui rendront difficile 
une réécriture partielle du texte. Il 
reste néanmoins un produit amical. 
d'un rapport qualité/prix très compé- 
titif. 


NDLR - Magic Window Il a égale- 
ment été testé par Guy Lapautre. qui 
complète l'analyse d'Alexandre 
Avrane par ces remarques 


1 - Je trouve qu'une version moder- 
nisée de ce logiciel, qui prétend être 
adaptée à l'Apple /e. et ce sans utili- 
ser ses touches particulières (flèches 
verticales. pommes. }). est une 
aberration. 


2 - Les codes de déplacement utilisés 
(CTRL-Q ou W ou Z ou X). parfaite- 
ment ergonomiques en Qwerty. sont 
ridicules en Azerty (la traduction du 
manuel le reconnaît d'ailleurs). Je 
suis d'autant moins gêné pour le dire 
que je travaille toujours en Quwerty 


3 - Je m oppose à l'idée d'utiliser un 
logiciel (Magic Window par exemple) 
pour une première frappe et un autre 
(Apple Writer par exemple) pour les 
corrections. Ces deux logiciels étant 
fondés sur des principes totalement 
différents. il faut de longues heures 
pour se débarasser des réflexes 
acquis par une bonne habitude d'un 
logiciel afin de passer à un autre. 


4 - Je trouve que Magic Window 
manque un peu de fonctionnalités 
aujourd'hui courantes. surtout dans 
le domaine des déplacements et rem- 
placements de texte. En revanche. il 
a gardé une gestion très commode 
par menus bien conçus. 


En résumé. je préférais nettement 
Magic Window [ à Apple Writer [. 
Maintenant. je vote sans hésiter en 
faveur d'Apple Writer IL, face à Magic 
Window II. u 
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LES CARTES D'INTERFACE 
Carte Z 80, (4 MHz) (Photo 1 
Care 80 col, avec MIA EMISMIECUIRE franc ais (Phote 2 


Progranmmateur S'proms (7759 18 3 ZA Sai(Proto) 


Joysticka 
Ventilateur 
Alimentetion 
Carte ViA 6522 8 
Certehorluge 
CartelEEE-488 - câble 
Carte Musicale) 
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entre sortie multiple A D. O’A 

Carte 6809 bi processeur 
Carte convertisseur A/O 
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Moniteur Zenithvert 
Moniteur Zenithembre 
Certe Videx Ultreterm 
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Softsrm 2. émulation de terminal 
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Comparaison de deux programmes 


Contrairement à ce que l'on pourrait 
croire. l'activité du programmeur ne 
s'exerce pas toujours dans le cadre 
d'une organisation sans faille. Peut- 
être faut-il voir là une manifestation 


Les étapes de la mise en oeuvre sont 
les suivantes (avec PG1 désignant la 
première version chargée en mé- 
moire. et PG2 la seconde) : 


e BLOAD DIFOBJ 


Applesoft 


Gérard Michel 


qu'il s'agisse de PG1 ou de PG2. la 
routine attend la frappe d'un carac- 
tère au clavier avant de continuer la 
comparaison. 


de ce désordre bouillonnant qui ca- LOAD PGI É : : 183 
ractérise souvent le travail des grands à POKE 103PEEKU75): POKE IL est également possible de lister les El 
ns - “or différences sur papier: pour ce faire. É-+ 
ï 104.PEEK(176) : place le pointeur tapez PR#s (où s désigne le slot de Hi 
Ainsi, il vous est sans doute déjà ar- de l'adresse de début de pro- l'imprimante) avant CALL 37500. H 
rivé de vous trouver avec plusieurs gramme à la fin de PG1 pour que Dans ce cas. il n'est bien sûr plus HE 
versions d'un même programme en le chargement de PG2 n'écrase possible de répérer l'origine d'une H: 
Applesoft, sauvées sous des noms pas ce dernier ligne isolée par le mode d'affichage au 
top semblables pour que leurs nuan- s LOAD PGZ (normal ou inverse) et vous devrez A 
ces puissent vous éclairer, sans savoir s CALL 37500 utiliser la liste de l'un des program- ; 
discerner de façon certaine le fichier mes pour la déterminer. Lorsque 4 
contenant les plus récentes modifica- La routine peut afficher les différen- deux lignes de même numéro se sui- E 
tions. ces suivantes . vent. là première appartient toujours 
S'i sagt dun programme relative- : L listé à PGI et la seconde à PG2. 
ment long. la recherche des différen- A SRE de un 
A  E e Sue PG1 mais pas dans PG2. Si la routine ne liste rien, les deux 
319 ‘ 2) Ligne numéro N listée seule en programmes sont tout simplement ri- 
La routine en langage-machine que mode inverse : cette ligne existe dans goureusement identiques. | 
nous vous proposons dans cet article PG2 mais pas dans PG1 À l'issue de la comparaison, il peut 
vise précisément à limiter cette perte 3) Ligne numéro N listée en mode arriver _quun message SYNTAX 
de temps en comparant ‘’automati- normal, puis listée à nouveau en ERROR vous soit adressé par le 
quement” deux programmes en Ap- mode inverse : la ligne existe dans système. Cela provient de ce que la 
plesoft chargés en mémoire. afin les deux programmes. mais les ins- routine ne rétablit pas tous les poin- 
d'en afficher toutes les différences. tructions qu’elle comporte ne sont teurs de programme à une valeur 
La routine est implantée à partir de pas strictement identiques dans les correcte avant le retour au BASIC. 
l'adresse décimale 37500 et ne deux cas. Il suffit ainsi qu'un seul ca- mais il n'y à pas à s'en inquiéter. Si 
pourra donc être utilisée que lorsque ractère soit différent pour provoquer vous désirez faire de suite une autre 
la taille totale des deux programmes l'affichage (nom de variable modifié. analyse. tapez NEW et reprenez le 
à comparer ne dépasse pas 35K en- instruction rajoutée ou supprimée...). processus à partir de LOAD PG1 
viron. Chaque fois qu'une ligne a été listée. = 
LISA 1,5 20 TXE  EPZ $IE POINTEUR ‘FIN DE PROGRAM" POUR LIST 
21 CD EP? $EB PYPE DE LIST À EFFECTUER 
DOS RRRRNEEEEREREERNNENEENNENENNEEEEX 22 JSR HONE 
2 ;# # 23 LDA #1 3MET TX0 AU DEBUT DE P61 
3 ;# COMPARAISON DE DEUX 4 24 STA TX0 
4 ;# PROGRAES APPLESDET % 2 LDA #8 
5 ;# CODE = DIF.0BJ L 26 STA TXÜ+i 
6 53 4 27 JSR S8 MISE A JDUR DE 1X1 
VANEETTSEECESTENTITCEEFECEEISISITII ES 28 JSR S1 MISE A JDUR DE TX2 
8 ORG $927C 29 DEB  LDY #3 
9 0BJ $800 Ki) LDA CTX0) ,Y ;0CTET HAUT NO LIGNE DANS PS5t 
I0 TXT  EPZ $67 POINTEUR POUR PROGRAMME 2 31 OP CTXT),Y ; = OCTET HAUT NG LIGNE DANS P62 ? 
fi HONE  EQU $FC58 32 BNE CO 
J2 GET  EQU $FD0C 33 DEY 
13 FX0  EP2 $6 POINTEUR POUR PROGRAE 1! 34 LDA (TX0),Y:1DEM POUR OCTET BAS NO LIGNE 
I4 IN EP2 $32 ;DRAPEAU POUR INVERSE/NORMAL 35 CMP €TXF),Y 
15 IN EQU $200  ;BUFFER D'ENTREE/CLAVIER 36 BEO C3 
16 AD EP2 948 SAW. 2 OCTETS SUIWNT LIGNE LISTEE | 37 BCC CO2 NO INFERJEUR OANS P61 
17 TXP  EP2 819  ; SAUVEGARDE DE TXT 38 COI  LDA Hi NO INFERIEUR DANS P62 
I87TXI  EP2 $14  :ADRESSE LIGNE SUIVANTE OANS P61 39 STA CD 
19 TX2  EP2 $1C  :ADRESSE LIGNE SUIWNTE DANS P62 a Ci LDA #$3F  ;MODE °I'WERSE" 
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69 ;(SI LA LIGNE EST FINIE AVANT DANS P62, ON À UN O0 OUI NE SE) 
70 ;(RETROUVE PAS DANS PGI ET ON SORT POUR IN LIST DES DEUX) 


STA IN 
LDA TX2 
STA TXE 
LDA TX241 
STA TXE+] 
JP LIST 
BCS C01 
LDA #2 
STA CD 
LDA TXT 
STA T4P 
LDA TXT41 
STA TXP+1 
LDA TX0 
STA TXT 
LDA TX0+] 
STA TXT+#] 
LDA 1x1 
STA TXE 
LDA TXI+] 
STA TXE+] 
JNP LIST 
INY 

INY 


ÿPOINTEUR FIN DE LIST SUR PG62 


;ÿNO INFERJEUR DANS P62 


SAUVEGARDE DE TXT 


;DEBUT OÙ "PROGRAME® A LISTER 
3EST EN 1X0 


{POINTEUR FIN DE LIST SUR PGI 


LDA C1X0),Y ;CONPARAISON DES DEUX LIGNES 


CNP CTXT),Y 
BNE CB 
CNP #0 


AYANT NEME NUMERO 
SI 1 OCTET EST DIFFERENT =) LIST 
3FIN LIGNE DANS P61 ? 


71 ;CLIGNES À L’INSTRUCTION 67) 


72 ;{SI LA LIGNE N’EST PAS FINIE DANS PG2, ON N'ARRIVE MEME PAS) 
73 ;CA L'INSTRUCTION 6B CAR ON À DANS P61 IN 0 QUI NE SE TROUVE) 


74 ;CPAS DANS P62 ET ON SORT À L’INSTRUCTION 67) 


75 j(LE TEST SUR P61 SUFFIT DONC POUR VERIFIER QUE LES DEUX) 
76 ;(LIGNES SONT BIEN IDENTIQUES DU PREIER AU DERNIER OCTET) 
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BNE C4 
LOA TX! 
STA 1X0 
LDA FX1+1 
STA TX0+] 
LDA TX2 
STA TX 
LDA TX241 
STA TXT #1 
JSR S0 
JSR S! 
LDA TX1+] 
BE Cé 
LOA TX] 
BNE Cé 
CNP 1X2+1 
BNE C5 
OP TX2 
BNE C5 
LDA #8 
STA TXT+] 
STA $BD 
LDA 41 


PASSE À LIGNE SUIVANTE DANS P61 ET P62 


3P61 FINI ? (00 EX TXI ET TX{+1) 


3P6G2 FINI AUSSI ? 


REMISE DES POINTEURS EN POSITION "NEW" 


ET FIN DE ROUTINE 


131 
132 
133 
134 
135 
136 
137 
138 
139 
140 
141 
142 R£ 
143 
144 
145 
146 
147 
148 
149 
150 
151 
152 
153 REQ 
154 
155 
156 
157 
158 


STA TXT 
LDA 4 

STA $4F 

RTS 

HP CO 

LDA TX241 
BNE C7 

LDA T#2 

BNE C? 

LDA #4 

STA CO 

JNP C2 

MP DEB 

LDA A5 

SIA CD 

JP C2 

LOX #0 

LDA INLIST,X 
SIA IN,X 


LDA (TXE),Y 
STA AD 

INT 

LDA (TXE),Y 
STA AD+1 
DEY 

TA 

STA CTXE),Ÿ 
INY 

STA (1XE),Y 
JSR 40539 
JMP 40444 
LOY #0 

LOA AD 

STA CTXE) ,Y 


STA (1XE) ,Y 
JSR GET 
LDA #9FF 
STA IN 
LDA CD 
CMP 41 
BNE RLO 
LDA TX2 
STA NF 
LDA TX2+1 
STA FXT 41 
JSR Si 
WP Rî 
CMP #2 
BE RLI 
LDA TXP 
STA TX 
LDA TXP41 
STA 7X141 


{LIST DE LA FIN DE P62 
3P6I PAS FINI - PG2 L'EST-IL ? 


LIST BE LA FIN DE PGI 


3COMPARAISON DES LIGNES SUIVANTES 
AUIONCE LIST DE 2 LIGNES DIFFERENTES 


3MET DANS LE BUFFER "IN° LES 
iCODES-ECRAN DE L’ INSTRUCTION 
; LIST:CALL 37716 


SAUVE 2 DCTETS SUIVANT EA LIGNE 
A LISTER (DEBUT LIGNE SUIVANTE) 


3MET 00 APRES LA LIGNE POUR 
3SINULER UNE FIN DE PROGRAMME 


ROUTINE D’ INTERPRETATION DU BUFFER 
SAUT DANS LE BASIC POUR EXECUTION 
ON EST À L'ADRESSE DECIMALE 37716 
IRESTAURE DEBUT LIGNE SUIVANTE 


DEMANDE FRAPPE AU CLAVIER 
3RETABLIT MODE “NORKAL" 


3PASSE À LIGNE SUIVANTE DANS P62 


ÿRETABLIT TXT POUR P62 
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159 RL2 © LOATXI  ;PASSE À LIGNE SUJWNTE DANS PGI 577 50  LOY #0 5S-P DE MISE À JOUR DE TXI 
160 STA TX 178 LA €TX0), Y 

161 LDA TX1+1 179 STA TX 

162 STA TX04 180 INY 

163 JSR 50 181 LDA (XD), Y 

164 JP RO 182 STA TXi+i 

165 RLI CP #4 183 RTS 

166 8EQ RL? ;0N EST DANS LE LIST DE LA FIN DE PS1 | 184 St  LDY 40 :S-P DE MISE À JOUR DE TX2 
167 CNP 45 185 LOA CTAT),Y 

168 BE RL3 186 STA 1X2 

169 LDA #3 _jLA LIGNE DE PGI EST LISTEE 187 my 

170 SIA CD ET GN UA MAINTOWNT LISTER 188 LDA €TXT),Y 

{71 LOA TXP ;CELLE DE P62 189 STA TX241 

172 STA TXT 190 RTS 

173 LDA TXP41 191 INLIST HEX CCC9D3D4BAC3CICCCCB387878186 

174 STA IXT4 192 DCH “INT" 

175 MP C1 193 END 

I6RL3 JMPC9  j;2E LIGNE LISTEE - ON PASSE À LA SUITE 

RECAPITULATION 


927€- 20 58 FC A9 

9280- 01 85 06 A9 08 85 07 20 
9288- ÀE 93 20 BA 93 A0 03 8! 
9290- 06 Di 67 D9 1C 88 81 06 
9298- D1 67 F0 36 90 15 A9 01 
9240- 85 EB A9 3F 85 32 AS 1€ 
9A8- 85 1E AS 1D 85 1F 4C 2F 
9280- 93 89 EB A9 02 85 EB AS 
92B8- 67 85 18 ÀS 68 85 19 AS 
92C0- 06 85 67 À5 07 85 68 AS 
92C8- JA 85 JE AS 18 85 1F 4C 
92D0- 2F 93 C8 C8 81 06 D1 67 
92D8- DO 4E C9 00 DO F5 À5 JA 
92E0- 85 06 AS 18 85 07 ÀS 1C 





92EB- 85 67 AS 1D 85 68 20 AE 
92F0- 93 20 BA 93 AS 1B 00 {E 
92F8- ÀS JA 00 14 CS 1D D0 53 
9300- C5 1C DO OF A9 08 85 68 
9308- 85 RO A9 0f 85 67 A9 04 
9310- 85 AF 60 4C 9E 92 A5 10 
9318- DO 08 A5 1C DO 07 A9 04 
9320- 85 EB 4C 87 92 4C BD 92 
9328- A9 05 85 E8 4C 87 92 A2 
9330- 59 BD Cé 93 9D 00 02 E8 
9338- E0 0E DO F5 AD 00 8f 1E 
9340- 85 08 C8 B1 1E 85 09 88 
9348- 98 91 JE CB 91 1E 20 39 
9350- 05 4C 44 D4 AD 00 A5 08 
9358- 91 1E C8 AS 09 9f 1E 20 


9360- 0C FD A9 FF 85 32 A5 E8 
9368- C9 01 DO 0E AS IC 85 67 
9370- AS 1D 85 68 20 BA 93 4C 
9378- F4 92 C9 02 00 f6 AS 18 
9380- 85 67 AS 19 85 68 AS IA 
9388- 85 06 AS 1B 85 07 20 AE 
9390- 93 4C F4 92 C9 04 F0 EE 
9398- C9 05 DO 0F A9 03 85 E8 
9340- AS 18 85 67 AS 19 85 68 
9348- 4C A2 92 4C DE 92 A0 00 
9380- 81 06 85 1A C8 8f 06 85 
9388- 18 60 AO 00 81 67 85 IC 
93C0- C8 81 67 85 1D 60 CC C9 
93C8- D3 D4 BA C3 Ci CC CC 83 
9300- 87 87 81 86 


Accélération de programmes en Pascal 


Pour accélérer vos programmes Pas- 
cal. vous pouvez utiliser des procédu- 
res intrinsèques relativement mécon- 
nues telles que FILLCHAR et 
SIZEOF 


La procédure FILLCHAR permet de 
remplir la variable DESTINATION 
sur une longueur LONGUEUR avec 
le caractère CARACTERE: elle est 
définie par : 


FILLCHAR (DESTINATION. LON- 
GUEUR. CARACTERE): 


DESTINATION est de type quelcon- 
que (sauf fichier), ce peut être sim- 
plement un tableau. un enregistre- 
ment où un champ dans un 
enregistrement: s'il s'agit d'un ta- 
bleau ou d'une chaîne de caractères. 


Pems n° Il 


DESTINATION peut être indicée. 
FILLCHAR (tableau! 51!,50.°7') rem- 
plit le tableau de Z de l'indice 51 à 
100. 

Si l'on ne connaît pas la taille exacte 
de la variable DESTINATION et que 
l'on désire la remplir complètement. 
on utilisera avec avantage la fonction 
SIZEOF qui retourne la iongueur 
d'une variable où d'un type (sauf fi- 
chier). Ainsi. FILL- 
CHAR(ENREGISTREMENT. SI- 
ZEOF(ENREGISTREMENT). 
CHR(@)) remplit la variable ENRE:- 
GISTREMENT de zéros. Le remplis- 
sage dun enregistrement par 
CHRIS) correspond à ‘ pour les 
STRING. à O pour les INTEGER et à 
FALSE pour les BOOLEAN. d'où 
l'utilité de FILLCHAR pour obtenir 


rapidement et sans effort un enregis- 
trement vierge. 


Ce procédé est très rapide pour rem- 
plir de grands tableaux. Vous pourrez 
faire un essai en remplaçant. dans le 
programme saisie multipage du 
Poms 9. dans la procédure INIT: 


FOR I: = 1 TO MAXLIGTB DO 
FOR J := 1 TO MAXCOLTB DO 
TB! := 0 


par. FILL 
CHAR({TB.SIZEOF(TB).CHR(0)): 


Vous vous apercevrez que vous 
n'avez pratiquement plus le temps de 
lire ‘Patience. RAZ du tableau ! At- 
tention cependant le système 
n'exerce aucun contrôle: vérifiez bien 
les limites de remplissage 
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L'ORDINATEUR 


INDIVIDUEL 


Vous y trouverez: 

e l'actualité et les tendances de l'informatique individuelle 
e les bancs d'essais des principaux matériels e des panoramas 
et des tests comparatifs + le point des grandes manifestations 
internationales . des articles d'initiation e des synthèses 

e des programmes des interviews “exemplaires” 

e des conseils e des idées . des astuces 


L'ORDINATEUR INDIVIDUEL, chez votre marchand de journaux 






À 


Recueil No. 2 de Pom's - Editions 
MEV et Editions du PSI - 215 pages 
- 120 FF. 


Voici enfn le second recueil de 
Pom's. couvrant les numéros 5 à 8. 
Ces numéros ont déjà été retirés. 
mais le 5 et le 6 se trouvent à nou- 
veau en rupture de stock 


Nous souhaitons à ce second recueil 
autant de succès qu'au premier. 
Avec les disquettes d'accompagne- 
ment, vous aurez plein de program- 
mes. dont les ‘leaders’: Haïfa. le 
HELL@ complet, la programmation 
facilitée, le moniteur étendu. la cryp- 
tographie. de multiples utilitaires et 
programmes graphiques. Autant 
de programmes qui seraient normale- 
ment chacun vendus. à eux seuls. 
pour le prix du recueil avec ses dis- 
quettes. Bonne lecture ! 


Le recueil No. 2 sera disponible à la 
mi-avril. 


Techniques .de programmation 
des jeux. de David Lévy. Editions 
du PSI. 245 pages, 102 FF. 


Le livre donne une bonne idée des 
principes de programmation d'un 
grand nombre de jeux de damier et 
de cartes. !l est dommage qu'il ne 
présente pas le moindre exemple de 
programme et seulement quelques 
rares organigrammes partiels. Néan- 
moins. un lecteur assez fort en infor- 
matique pourra en tirer profit. surtout 
s'il a déjà un peu travaillé sur le 
sujet. 


Ce qui est par contre regrettable. 
c'est l'incroyable négligence dans la 
présentation de l'ouvrage: pas de 
table des matières. fautes d'impres- 


sion nombreuses et parfois gênantes. 
bibliographies omises bien qu'annon- 
cées dans le texte. La question se 
pose : y a-t-il un correcteur dans la 
maïson ? 


Multiplan sur Apple. par Hervé 
Thiriez, Editions du PSI. 


Dois-je ne pas parler de ce livre puis- 
que l'auteur participe à cette revue ? 
J'ai aussi un devoir d'information à 
votre égard: j en parlerai donc. ayant 
eu la chance de pouvoir analyser le 
manuscrit. 


Il s'agit là d'un ouvrage ayant deux 
buts : une introduction progressive et 
cependant approfondie à Muitiplan. 
et la présentation de tableaux types 
et d'astuces d'utilisation nombreuses 
qu'ignorent parfois des utilisateurs ré- 
guliers du programme. Ces deux 
buts sont manifestement atteints. 
Nous conseillons cet ouvrage à tous 
les utilisateurs de Multiplan : même 
les habitués y apprendront des trucs. 


Comme dans le cas de ‘Visicalc sur 
Apple”. une disquette d'accompa- 
gnement est proposée en option. 
Cette disquette se vendra même 
toute seule. car elle contient un pro- 
gramme permettant d'obtenir une 
liste détaillée descriptive de tout ta- 
bleau, comportant tous les renseigne- 
ments y compris les formats. les 
zones nommées”. les indications de 
recopie, … 


Guide de l'Apple. tome 3. par Be- 
noîft de Merly - Edimicro - 180 
pages. 79 FF. 


On retrouve le même objectif que 
dans ‘20 progiciels-outils….” présenté 
dans le Pom's 10. Nous avons ici 


Bibliographie 


Alexandre Duback 


droit à l'analyse de cinq programmes 
de traitement de texte (surtout Ap- 
plewriter et Wordstar), deux tableurs, 
sept gestionnaires de fichiers (trois en 
détail}. deux logiciels de graphiques. 
et 18 pages sur la télématique. 


Comme nous l'avons dit dans le nu- 
méro 10 de Pom's, ce type d'analyse 
de logiciel nous semble être ou trop 
ou trop peu. d'autant que. dans ce 
cas-ci. plusieurs logiciels sont déjà 
fort connus: Applewriter, PFS. CX, 
Visicalc. Multiplan. … 


Disk, files and printers for the 
Apple Il. de Brian D. et George H. 
Blackwood. Prentice Hall Internatio- 
nal. 66 Wood Lane End. Hemel 
Hempstead.  Herts HP2Z 4RG, 
Royaume Uni - 260 pages. $20.75. 


ll s'agit là d’un ouvrage clair et facile- 
ment lisible sur le DOS. avec un cha- 
pitre bien fait sur l'utilisat'on de l'im- 
primante où l'on explique comment 
éviter le TAB au-delà de la quaran- 
tième colonne. Des programmes de 
démonstration accompagnés d'orga- 
nigrammes complètent la présenta- 
tion. Pour les débutants anglopho- 
nes. 


Programming the Apple in Basic. 
de Paul Tebbe. Prentice Hall, 182 
pages. $2205. 


Un bon livre d'initiation au Basic sur 
Apple. y compris à l'utilisation des fi- 
chiers. Avantages : clarté et pédago- 
gie. Bien entendu. il faut pouvoir lire 
l'anglais. Un regret : le livre ne pré- 
vient pas des limites ou bugs de l'Ap- 
ple : voir à ce sujet les remarques sur 
l'APPEND et le RENUMBER dans le 
recueil No. 1 de Pom's. = 


L'augmentation du rythme de parution requiert un renforcement de notre 
équipe. Pom's recherche un collaborateur avec un parfaite maîtrise de l'Apple 
Il et //e, capable de faire de l’assembleur les yeux fermés, connaissant les 
adresses de l'Apple aussi bien que celle de sa petite amie, décontracté et sum- 
pathique. Il faudrait en outre qu'il habite Paris ou le Sud-Ouest de la région 
parisienne (nous sommes à Versailles). S'il est par ailleurs capable d'écrire clai- 


rement et sans ‘’fôtes d'ortografe”, c'est encore mieux. mais pas indispensable. 
Nous sommes ouverts à toute formule entre un mi-temps et un temps plein. 
Avantages : travail passionnant avec des gens sympathiques (mais oui ….), dans 
des conditions totalement conviviales : possibilité de travailler en bonne partie 
chez soi, même la nuit et les week-ends. Nous cherchons aussi un responsable 
comptable et administratif sérieux, ordonné au point de la méticulosité : il n’est 
en effet pas question de perdre vos précieux bulletins d'abonnement. 
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Datalife 


DISQUETTES ET MINI DISQUETTES TOUTES CONFIGURATIONS 





- Certification unitaire 100% sans erreur. 


- Durée de vie : 30 millions de révolutions 
(standard de l'Industrie 3,5 millions de révolutions). 


- Anneau de renforcement en standard sur le 5 1/4”. 


- 5 V4" en 48 et 96 TPI, simple et double face. 


BF{ ELECTRONIQUE - 9 RUE YVART - 
75015 PARIS. 
Tél. 533-01-37. 
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Promenade au Jardin 


des Hespérides 


Le cru 83 de la Pomme d'Or est 
composé de quatre lauréats, récom- 
pensés par des Lisa (juste avant la 
baisse des prix...) : 


e Michel Marquis (un auteur de 
Pom's), avec le Kit PIA. relie son 
Apple à tout son appartement 
(comment fait-il pour se raser sans 
griller ses ROMs ?). 


e Roland Moreno, François Grieu et 
Frédéric Lévy communiquent avec 
la carte Apple-Tell (voir plus loin). 


e Claude Collin. de Contrôle X. pro- 
pose CX Système (analysé dans le 
Pom's 10. après l'étude de CX 
Multigestion dans le Pom's 5). 


e Jean-Luc Besnard et Patrick 
Choisy. avec la comptabilité Héra- 
klès. ‘s'interfacent” avec Visicalc, 
Applewriter, Business Graphics. 
Ormnis..… 


Le ‘Goncourt des Logiciels" permet- 
tra-t-il une meilleure protecton juridi- 
que des oeuvres des auteurs de logi- 
ciels ? 


Vous avez dit compati- 
ble ? 


lLEF. propose un Apple /'e portable 
baptisé STADU P : Système de Trai- 
tement et d'Acquisition de Données 
Universel Portable. On y trouve. 
dans un coffret robuste. un Apple //e 
avec un lecteur de disquettes 140 K 
intégré, un écran 7 pouces et un cla- 
vier ASCIT abattant. le tout pour 
19000 F AT. En option. on peut dis- 
poser dans ce même coffret d’une 
imprimante’table traçante de 115 
mm (5000 F HT interface comprise). 
avec 16 tailles de caractères. 1 à 80 
caractères par ligne. 4 sens d'écri- 
ture. 4 couleurs. 16 types de pointil- 
lés. tracé des axes X-Y. déplace- 
ments absolus ou relatifs. [Il V a aussi 
de la place pour deux lecteurs 140 K 
en demi-hauteur. ou un lecteur 5 
pouces 1 MO ou un disque dur 5 


MO 


Toutes les cartes Apple peuvent être 
montées dans les connecteurs du 
système 


Au rayon des O.S. 


Vous avez bien sûr reconnu les Ope- 
rating Systems et non les travailleurs 
à la chaîne (fût-ce une chaine de 
traitement). 
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Micro-informations 


Prodos va donner un coup de fouet 
à votre Apple Il Ce nouvel OS. de- 
vrait être plus rapide. laisser plus de 
place en mémoire en se logeant dans 
la carte langage de l'Apple [+ ou 
dans les 16 K supplémentaires de 
l'Apple //e, et surtout ne plus limiter 
les volumes aux sempiternels 140 K 
du DOS 3.3. 


[Il sera facile d'utiliser un disque dur 
ou des disquettes de plus grande ca- 
pacité. La compatibilité avec l'Apple 
[Il sera grandement améliorée. D'au- 
tres améliorations de performances 
sont attendues grâce à Prodos. Je 
cite Apple : 


”.. des applications avancées comme 
les réseaux. les graphiques profes- 
sionnels. et la gestion de bases de 
données évoluées” 


Chez le disquaire 


Autour d'Apple on parle précisément 
de la prochaine disponibilité du dis- 
que dur Profile sur Apple Il. grâce à 
l'interface Apple Il - Profile (ce serait 
pour avril). [l est prévu que ce disque 
soit partageable entre Prodos et Pas- 
cal (mais pas CP/M..). Il est aussi 
question de disquettes plus musclées 
(capacité double des 5 pouces 1/4 
actuelles). 


Datalog lance le Symbfile, disque dur 
5 pouces 1/4, technologie Winches- 
ter, pour Apple Il et lil. Il existe en 
5.25. 10.5, 21 et 42 MO. 


La guerre du floppy aura-t-elle lieu ? 
5 pouces 1/4 traditionnels ? 5 pouces 
1/4 demi-hauteur? 3 pouces? 3 
pouces 1/2? Les mini-formats conti- 
nuent leur développement. Par 
exemple. Hitachi annonce le 3 
pouces MD3, 500 KO, à moins de 
3000 F, avec contrôleur (standard 
Apple). Mais les disquettes coûtent 
relativement cher : 65 F pièce. Après 
expérimentation, un banc d'essai 
pourra figurer dans un prochain nu- 
méro de Pom's (Acer Micro). 


Apple, de son côté, a adopté le 3 
pouces 1/2 au standard Sony. qui 
équipe Mac, et maintenant Lisa. In- 
discrétion. il devrait être proposé 
sur la ‘ligne 6502” vers la fin de 
l'année. 


BIMP annonce une disquette 5 
pouces 1/4 de 1 MO formaté (1.6 
MO non formaté), compatible 
MEMDOS, DOS 33. CP;M et Pas- 
cal. Pour 13000 FE TTC. 


Guy Lapautre 
{assisté de J.-F. Duvivier) 


Impression 


Les cartes ”’buffer” d'imprimante de- 
viénnent monnaie courante. Pentaso- 
nic propose 2 modèles : 16 K et 128 
K. aux prix respectifs de 2310 F et 
3970 F. De son côté, MID propose 
64 K pour 2200 F. tandis qu'il en 
coûte 1750 F pour avoir 16 K chez 
Acer Micro. 


Chez Apple. la nouvelle Imagewriter 
remplace, sur la gamme 68000, l'ac- 
tuelle Dot Matrix. Elle est également 
proposée sur la gamme 6502. 


Une naissance aussi chez Seikosha : 
dans la famille GP, la toute petite GP 
50 A. graphique. pour 1250 F. | 


Nous n'avons pas encore pu essayer 
la nouvelle Canon couleur. ni la TRS 
80 CGP 220 sept couleurs, toutes 
deux à jet d'encre. et dont on dit 
merveilles. 


Signalons en vrac la FX100. haut de 
gamme Epson, la Gemini 10 X et la 
Delta 10 de Henggstler. Facit propose 
une haut de gamme matricielle de 
qualité courrier. la 4570 (2 versions à 
40800 et 33700 F) et le ‘petit’ mo- 
dèle 4512. avec de bonnes fonction- 
nalités graphiques (pour 10080 F 
TTC). 


Communiquons 


On peut. en particulier. communi- 
quer avec Apple-Tell (voir ci-dessus 
la Pomme d'Or) qui offre pour 5900 
E::HTE 


e un modem avec cinq vitesses de 
communication (half duplex en 
600 et 1200 bauds et full-duplex 
en 300 bauds - canal de retour 5 
et 75 bauds (norme Minitel) en 
1200 bauds - six modes de fonc- 
tionnement CCITT (normes fran- 
çaises et européennes). cinq 
modes de fonctionnement “Bell” 
(normes US). une grande variété 
de formats et des boucles de jonc- 
tion analogique et digitale (types 2 
et 3) permettant le test de la carte, 
de la connexion au réseau, à la 
ligne téléphonique et à un modem 
distant. 


e une interface réseau avec circuit 
de numérotation décimale pro- 
grammable et détection de sonne- 
rie selon les formats US et euro- 
péens. 


e un générateur Vidéotext : buffer 
de 4 Ko, écran de 24x40, gestion 
complète du protocole Télétel. 


TARDE 
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e une interface vidéo avec sortie sur 
prise Péritel, haute qualité couleur, 
N/B Vidéotext et N/B Apple stan- 
dard avec commutation automati- 
que. 


e le ‘firmware : interface Apple. 
valeurs par défaut en mémoire 
EPROM permettant de mettre jus- 
qu à 256 critères différents à la 
mise sous tension. 


e une disquette d'accompagnement 
et une documentation claire ren- 
dant ces possibilités accessibles au 
non-spécialiste et contenant une 
émulation du programme terminal 
Minitel. 


Apple Bus se précise. pour fin 84. 
16 matériels Apple {tous sont accep- 
tés), partage de ressources (impri- 
mante, disque de grande capa- 
cité...) 250 Kbauds sur 300 mètres. 
Les moyens de connexion sont déja 
intégrés dans Mac et Lisa. 


Dialogue 


Pour ‘parler’ à votre Apple Il. le cla- 
vier d’origine va devenir un jour 
aussi démodé que l'est le DOS 3.3! 


Si vous tenez à la solution clavier. un 
clavier avec bloc numérique séparé 
vous coûtera environ 1000 F. 


Touchez votre écran avec un crayon 
lumineux. Cette baguette magique. 


avec son logiciel, se trouve aux envi- 
rons de 5000 F. 


Plus rustiques. mais aussi beaucoup 
moins chers, les “joysticks” - disons 
manches à balai. Il en existe de nom- 
breux modèles entre 200 et 800 F. 


Vous pouvez : préférer un système 
plus sophistiqué comme le Robo 
1000 de Sideg (ensemble levier de 
commande et logiciel de dessin as- 
sisté par ordinateur), mais pour 7940 
ETC 


Une mini tablette graphique vous 
permet aussi de communiquer aisé- 
ment avec votre Apple favori. N’en 
n'attendez pas des miracles de préci- 
sion, mais elle ne coûte que 1000 F 
environ. Un peu plus ambitieuse, 
une série Koala Pad, à partir de 
1300 F chez SPID Micro. G31 pro- 
pose un système original : Graphis- 
cop. fonctionnant avec un crayon à 
bille... et quand même un petit appa- 
reil (990 F TTC). 


Enfin. par une astucieuse, mais coû- 
teuse adaptation, on commence à 
pouvoir transformer son écran banal 
en écran tactile. 


Tout ceci, bien entendu, en atten- 
dant la désormais traditonnelle souris 
. annoncée par Apple. Je cite : 

"inaugurée avec Lisa, la généralisa- 
tion de la technologie graphique 
souris à l'ensemble des systèmes 
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Apple...”. Indiscrétion : ce sérait pour 
avril, et il en coûterait moins de 1000 
F, interface et logiciel inclus. 


Si vous préférez des échanges par 
capteurs et actionneurs. Créatic vous 
propose un système d'interfaçage 
(CM 1800) avec nombreuses cartes 
d'interface analogiques et numéri- 
ques. 1600 F TIC le coffret, 600 à 
900 F par caite. 350 F pour un cap- 
teur. 


Et les logiciels ? 


La tendance forte est la francisation 
des logiciels généraux Anglo-Saxons. 
Les premières réalisations étaient es- 
sentiellement des traductions de la 
documentation. De plus en plus au- 
jourd’hui. c'est le logiciel lui-même 
qui est francisé. 


Un bon exemple est donné par 
Apple Writer Il Il montre un effort 
réel: tous les messages sont rédigés 
en Français: il montre aussi une li- 
mite : les mnémoniques de 
commande n'ont pas changé, et ‘L' 
veut toujours dire charger”. 


Un nouveau-né dans la famille PFS : 
PFS Write. traitement de texte pou- 
vant exploiter les fichiers. tableaux et 
œaphiques de ses aînés. Il nous a été 
présenté à la boutique Galilée Infor- 
matique. 


Toujours en traitement de texte, Mi- 
cropro diffuse Wordstar 3.3 (déja 
présent au SICOB), avec fusion de 
fichier et utilisation rationnelle de 
touches de fonction. |] existe pour 
Apple Il et IIl et pourra prochaine- 
ment être associé à Starindex (géné- 
rateur de table des matières) et Star- 
bust ( générateur de menus). 


En version 2. le traitement de texte 
Epistole de Micro Assistance est doté 
de possibilités de calcul. Il fonctionne 
sur Apple Il et Apple //e. De son 
côté, Gutenberg de Micromation Li- 
mited (analyse détaillée dans ce nu- 
méro) permet d'utiliser, de compo- 
ser, des graphismes originaux tels 
que symboles mathématiques. chimi- 
ques. électroniques. etc. 


En gestion de fichier. Logifiche 2 est 
développé par la CFNI. Nombreuses 
possibilités de calcul. de traitements 
automatiques. d'éditions et de re- 
cherche multicritères (1420 F. pour 
Apple Îl et //e). 


Côté graphique. Charts Unlimited 
permet de créer des schémas. graphi- 
ques, organigrammes, plans. Simple 
à utiliser, facile à apprendre, ce logi- 
ciel n'est à notre connaissance pas 
encore commercialisé en France. 
Produit par Graphware. distribué en 
Europe par Transatlantic Software. 
Prix US : 195 $. Une analyse détail- 
lée sera proposée dans le prochain 
numéro de Pom's. 


BP. distribue de son côté plusieurs 
programmes graphiques : Koalapad 
{moins de 1500 F TTC pour logiciel 
+ tablette graphique) est une ‘“ar- 
doise magique” pour dessiner, décal- 
quer, colorier, de façon simple mais 
cependant riche et variée. TGS 
{compatible avec le précédent, 1695 
F} est un bon logiciel pour la création 
de dessins animés. 


À quand un ‘Lotus 1 2 3” ou un 
Visi On” sur Apple 11? Sans doute 
aussi pour aviil, sous forme d'un lo- 
giciel intégré (gestion de fichier +ta- 
bleur + traitement de texte) 
commandé par souris. exigeant 64 K 
supplémentaires. Ce logiciel sera pro- 
posé par Apple sur la ligne 6502. 


Côté Apple //; SANE (Standard 
Apple Numeric Environment) permet 
des traitements numériques précis. 
Apple /// Pascal Toolkit est un nouvel 
outil d'aide au développement de 
programmes. 


Une initiative intéressante d'Axone : 
l'établissement d'un “catalogue” de 
logiciels professionnels dont la vente 
est assortie d'une formation. Dans ce 
catalogue. pour Apple Il on relève : 


- Décisionnel graphique de Adde 
Marketing (analyse dans le précédent 
numéro de Pom s). 

- Incredible Jack de Business Solu- 
tions (certains font la fine bouche. 
mais c'est intéressant pour qui n'a 
pas d'ambitions démesurées). 


Où vont les logiciels ? 


Selon une enquête de Computer 
Merchandising International (janvier 
84), les ‘best sellers” dépendent lar- 
gement du pays. Par exemple. l'utli- 
sateur Allemand d’Apple porte essen- 
tiellement son choix sur Muitiplan. 
Wordstar et Visicalc. L’Anglais est 
sensible au charme de Multiplan et 
Wordstar (comme son collègue ger- 
main) mais aussi d'Applewriter et 
d'Omnis. Le Français papillonne de 
Multiplan à Visicalc, de Dbase Il à 
CX Multigestion, PFS et Omnis. sans 
négliger Applewriter. 


De source Apple généralement bien 
informée, l'évolution des logiciels gé- 
néraux se dessine de la façon sui- 
vante : 


e Pour les logiciels scientifiques et 
techniques. accent sur le DAO 
(dessin assisté par ordinateur). le 
traitement de texte avec caractères 
spéciaux (voir notre analyse de 
Gutenberg), et l'interfaçage avec 
les logiciels graphiques. 

e Côté gestion, le graphique souris, 
le pont des logiciels intégrés. un 
effort considérable sur documenta- 
tion et formation. 


e L'éducation cherche des logiciels 
d'EAO commodes (Logo, Super- 
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pilot. EVA), a besoin de produits 
français originaux et s'oriente vers 
la variété du dialogue : vidéo-dis- 
que, tablette graphique, joystick, .… 

e L'utilisateur familial” recherche 
quelques produits simples et bon 
marché : un traitement de texte à 
500 F, une collection de modèles 
financiers à 400 F et un logiciel 
graphique couleur à 500 F (plus 
des jeux et des programmes édu- 
catifs). 


À signaler qu'Apple. en concertation 
avec la Datar, a choisi la ville de 
Metz pour installer son centre fran- 
çais de développement et d’adapta- 
tion de logiciels (ouverture premier 
semestre 1984). 


Où faire son marché ? 


Une nouvelle boutique lancée à 
grand renfort de publicité : le Multis- 
tore de Hachette. récemment ouvert 
à l'Opéra. Micro-ordinateurs. calcu- 
lettes. librairie. vidéo et son. J'y ai 
vu un Apple Il avec un lecteur de 
disquettes et un écran N. et B. ni 
plus ni moins bien traité que la ving- 
taine de modèles exposés. La pro- 
grammathèque est bien fournie en 
logiciels de jeux. mais semble beau- 
coup plus discrète sur les logiciels 
professionnels. 


Un 


Ceux d'entre vous qui ont pratiqué 
Visicalc ou le Pascal Apple ont sans 
doute remarqué que. quand ils ta- 
pent des touches pendant que la ma- 
chine ”réfléchit”., ces touches sont 
prises’ en considération. Nous vou- 
lons prouver dans ce petit article que 
la même chose est possible en Ap- 
plesoft. 


Premier problème : 
stocker les touches 


Il s’agit de récupérer le plus rapide- 
ment possible les touches enfoncées 
et de les stocker dans une table. 
Pour cela. il faut opérer un ”aiguil- 
lage” dans l'interprétation des pro- 
grammes Applesoft Comme ce lan- 
gage est généralement en ROM. le 
plus commode est de modifier sa 
seule routine en RAM, à savoir 
CHRGET : 
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Chez International Computer. des 
services personnalisés aux acheteurs 
de micros (dont Apple): extension 
de garantie à 2 ans renouvelables. 
service de maintenance sur place 
(Paris et couronne), livraison à domi- 
cile des consommables. 


Pentasonic propose un dépannage 
“immédiat” ou le prêt d'un matériel 
équivalent, ainsi qu'une formule 
d'essai de logiciel à domicile 


JCR pratique une autre formule : le 
“libre-service” du logiciel. 


Micro Case se pose en spécialiste de 
la boutique d'occasions sélection- 
nées. 


Adresses 


Acer Micro - 42 rue de Chabrol - 
75010 Paris - Tél 770.28.31 

Adde Marketing - 27 rue des 
Vignes - 75016 Paris - Tél 527.90.17 
Axone - Tour Neptune - 92086 
Paris La Défense - Tél 7736364 


BIMP - 20 rue Servient - 69003 
Lyon - Tél (7)860.84.27 
BIP - 22 rue Joseph Dijon - 75015 


Paris - Tél 2554463 

Business Solutions - 60 East Main 
street - Kings park - Middletown - 
Ohio 45042 - USA 

Controle X - Tour Maine-Montpar- 


”type-ahead” 


O0B1-E6 B8 CHRGET INC TXTPTR 
00B3-D0 02 BNE CHRGOT 
O0B5-E6 B9 INC TXTPTR+1 
00B7-AD YY XX CHRGOT LDA 
FXXYY 

O0BA-C9 3A CMP #' : 

00BC-BO OA BCS FIN 

OOBE-C9 20 CMP # ” 

00C0-FO EF BEQ CHRGET 
00C2-38 SEC 

00C3-E9 30 SBC #'0° 

00C5-38 SEC 

00C6-E9 DO SBC #$D0 

00C8-60 FIN RTS 


Cette routine, qui est un modèle 
d'astuce, incrémente TXTPTR ($B8- 
B9) et charge l'accumulateur À avec 
TXTPTR. De plus. Z est mis à 1 si A 
est ”:” ou une fin de ligne ($3A ou 
$00). Et C est mis à O si A est un 
nombre ASCII {"0” à 9"). 


Ce que nous allons faire. c'est metre 
un ’aiguillage” JMP AHEAD au 


nasse - 33 avenue du Maine - 35755 
Paris Cedex 15 - Tél 53898.87 
Datalog - 87 rue Lemercier - 75017 
Paris - Tél 228.14.18 

G31 - 5 passage Courtois - 75011 
Paris 

Galilée Informatique - 45 rue Ga- 
lilée - 75116 Paris - Tél 723.33.30 
IEF - 228 rue Lecourbe - 75015 
Paris - Tél 828.06.01 

International Computer - 29 rue 
de Clichy - 75009 Paris - Tél 
285.2455 

JCR - 58 rue Notre-Dame de Lo- 
rette - 75009 Paris . Tél 282.19.80 
Micro-Assistance - 66 rue Casta- 
gnary - 75015 Paris - Tél 5300528 
Micro Case - 46 rue de La Roche- 
foucauit - 75009 Paris - Tél 
874.05.20 

MID - 51 bis avenue de la Républi- 
que - 75011 Paris - Tél 357.83.20 - 
et. à partir de mars, nouvelle adresse 
: 96 boulevard Richard Lenoir - 
75011 Paris - Tél sans changement 
Pentasonic - 5 rue Maurice Bourdet 
- 75016 Paris - Tél 336.26.05 

Sideg - 170 rue Saint Charles - 
75015 Paris - Tél557.79.12 

SPID Micro - 39 rue Victor-Massé - 
75009 Paris - Tél 281 20 02 
Transatlantic Software - Branch 
Lotspeich - PO box 29561 - Cincin- 
nati - Ohio 45229 - USA . 


en Applesoft 


Olivier Herz 


début de CHRGET en direction de la 
routine AHEAD qui teste si le clavier 
est enfoncé et. le cas échéant. stocke 
la touche dans une table (excep- 
tions: CTRL-X annule le buffer de 
stockage des touches: CTRL-C fait 
de même, mais ne remet pas le cla- 
vier à zéro, afin de laisser interrom- 
pre éventuellement le programme). À 
la fin de cette routine. on incrémente 
TXTPTR et on saute à CHRGOT. 
Quand la table de stockage est 
pleine, chaque fois qu’on ajoute une 
touche supplémentaire. la touche la 
plus ancienne est “oubliée” faute de 
place. 


NB - Les spécialistes auront remar- 
qué que le logiciel MEM/DOS lui 
aussi, pour permettre ses comman- 
des LET.. a besoin d'utiliser un ai- 
guillage dans CHRGET. Contraire- 
ment à ce que l'on pourrait croire. ce 
détour dans une routine très fré- 





gt De EN 
#8 ES TLEUET titeripte 


65 


quemment utilisée comme CHRGET 
ralentit très peu le programme. 


Second problème : 
récupérer les touches 


Cette fois-ci, on fait un ‘’aiguillage” 
dans la routine d'entrée de caractè- 
res. On récupère l'adresse de cette 
routine en $AASS-AA56 ($6A55S- 
6A56 pour un 32K). où on la rem- 
place par l'adresse de notre routine 
de récupération du ‘type ahead”. 
Dans cette routine, si la table de sto- 
ckage est vide, on saute à la routine 
d'entrée de caractères. Sinon. on ré- 
cupère une touche de la zone de sto- 
ckage. 


Attention: le DOS ne doit pas 
avoir été déplacé sur la carte lan- 


gage. 


NB : on ne peut pas utiliser $38-39 
au lieu de SAASS-AA56. dans le cas 
d'un aiguillage. comme on le fait 
dans le cas de la reprogrammation 
de la sortie de caractères. 


Gestion de la table de 
stockage 


Cette table est située à la fin de la 
routine. Elle est de type FIFO first 
in-first out: premier entré-premier 
sorti]. à différencier d'une pile. de 
type LIFO (last in-first out : dernier 
entré-premier sorti. On utilise pour 
cela 2 pointeurs, qui se déplacent de 
façon circulaire dans la table: s'ils 
débordent à droite, ils reviennent à 
gauche. Le pointeur DEBUT. comme 
son nom l'indique, représente le 
début du stockage, et le pointeur FIN 
représente la position faisant suite à 
la fin du stockage. Par conséquent. 
quand ces pointeurs sont égaux. il 
n'y a pas de touches stockées. Enfin, 
on se doute que l'adressage des va- 
leurs contenues dans la table se fait 
par indexation avec ces deux poin- 
teurs. Par conséquent, la table ne 
peut avoir plus de 256 caractères. 


Utilisation et limitations 


Ce programme peut être assemblé 
n'importe où et n'utilise aucune mé- 
moire en dehors de lui-même. Nous 
foumissons une version assemblée à 
l'adresse 768 ($300) avec une table 
de 60 caractères. 


Pour le connecter, il suffit de le 
BRUNher ou de faire un BLOAD et 
CALL 768. Pour le déconnecter. il 
suffit de reprogrammer la routine 
d'entrée de caractères, ou de faire un 
PRINT CHRS(4)'IN#0"”, ou encore 
d'appuyer sur RESET. En fait. on ne 
déconnecte que la récupération du 
type ahead”, et non le stockage des 
touches qui continue, mais reste 


RE 
66 





LISA 2.5 


CLÉS EE EELEE LES ELLE SEE SE 


Employons bien les BOOLEANS 


On lit trop souvent dans les program- 
mes Pascal des lignes telles que : 

IF X=1 THEN BON := TRUE ELSE 
BON := FALSE 


dl 

: : TYPE AHEAD EN APPLESOFT : directement LL vie du BASIC. 
te 1 - 
1: {C) 0. ÿ Minol dite BON -= X = 1: 
VANX LELLLECECETCEETECETEETTEFT ES) 

8 ; 

9 ORG $300 

10 08J $300 

15; 

12 ;  AORESSES UTILISEES 

13 ; 

14 CHRGET  EP2 $8B] {LECTURE D'UN GCTET DU PROGRAMME 
15 CHRGOT  EP2 $B7 :10EN SANS INCREMENT DE TXTPTR 
14 TXIPTR  EP2 $B8 POINTEUR DU PROGRARÆ 
17 KBD EGU $C000 CLAVIER 

18 KBOSTRB EQU $C010 RAZ CLAVIER 

19 DOSKSA EGU $AASS 1$6A55 POUR 32X 

20 ; 

21 ; AIGUILLAGE DE CHRGEJ 

22 ; 

23 LDA #44C MP AHEAD EN $B! 

24 STA CHRGET 

2 LDA 4AHEAD 

26 STA CHRGET +] 

27 LDA /AHEAD 

28 STA CHRGET+2 

29 5 

30 ; AIGUILLAGE ENTREE CARACTERES 

31 ; 

32 LDA DOSKSUL ;ON STOCKE L'ANCIEN KSUL 
33 STA ANCIEN+] 

34 LDA DOSKSUL+1 

35 STA ANCIEN+2 

36 LDA ARECUP AIGUILLAGE OÙ KSkL 

37 STA DDSKSUL 

38 LDA /RECUP 

39 STA DOSKSUL: 1 

40 LDA FIN 

4 STA DEBUT 

42 RTS 

43 ; 

44 ;  REWPLISSASE DU TYPE AHEAD 

45 ; 

4é AHEAD  LDA KBD {TOUCHE ENFONCEE? 

47 BPL )1 

48 CNP 4483 jCTRL-C 

49 BEU }4 

50 BIT KBOSTRB 

Ji OP #598 ÿCTRE-X 

52 BNE }3 

53 ‘4 LDA FIN ON ANNULE LE BUFFER 
ÿ STA DEBUT 

95 JP )1 
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s6 ‘3 STX STOCREX 


;ON STOCKE LA TOUCHE 


3BUFFER PLEIN? 


{CODE OU DEBUT DE CHRGET ($81-$B6) 


#BUFFER DE TYPE AHEAD VIDE? 


jON SANTE À L'ANCIEN KS4L 
37) NGP NDP POUR CERTAINS KSHL 
;ON RECUPERE UNE TOUCHE 


57 LDX FIN 

58 STA TABLE, X 
59 JSR INCRX 
60 STX FIN 

éi €PX DEBUT 
62 EME )2 

63 JSR INCRX 
64 STX DEBUT 
65 "2 LDX STOCKEX 
66 ‘! INC TXTPTR 
67 ONE )0 

68 INC TXTPTR4I 
69 “0 JP CHRGOT 
n ; 

71 3  RECUPERATION DU TYPE AHEAO 
72 ; 

73 RECUP  STX STOCKEX 
74 LDX DEBLT 
75 CPX FIN 

76 BNE )0 

77 LDX STOCKEX 
78 ANCIEN JMP 30000 
79 ‘0 STA {$28) ,Y 
80 LDA TABLE ,X 
8i JSR INCRX 
82 STX DEBUT 
83 LDX STDCKEX 
84 RTS 

85 ; 

86 ;  INCREMENTE X CIRCLAIREMENT 
87 ; 

88 INCRX  INX 

89 CPX 8TAILLE 
90 BNE )0 

91 LDX #0 

92 ‘0 RTS 

93 


:  OCTETS DE STOCKAGE 
Ô 


96 STOCKEX HEX 06 

97 DESUT  HEX 00 

98 FIN HEX 00 

99 TAILLE EP2 60 

100 TABLE  DFS TAILLE 
10] Ci: 


Récapitulation 


0300- A9 4C 85 B1 A9 29 85 82 
030B- A9 03 85 B3 AD 35 AA B0 
0310- 77 03 AD 56 AA 62 78 03 
0318- A9 68 80 35 AR A9 03 BD 
0320- 56 AA AD 92 03 82 91 03 
0328- 68 AD 00 CO 10 31 C9 83 
0330- FO 07 2C 10 CO C9 98 DO 
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ÿPOUR NE PAS PERDRE LE REGISTRE X 
;INOICE DU DEBUT DU STOCKAGE 
INDICE D£ LA FIN DU STOCKAGE 
{TAILLE OU TABLEAU DE STOCKAGE 


3TABLEAU DE STOCKAGE À LA FIN OU PROGRASE 


0338- 09 AD 92 03 8D 91 03 4C 
0340- 5F 03 8€ 90 03 À€ 92 03 
0348- 9D 93 03 20 8B 03 8E 92 
0350- 03 EC 91 03 DO 06 20 88 
035B- 03 BE 91 03 AE 90 03 Eé 
0360- 88 DO 02 E6 B9 4C B7 00 
036B- 8E 90 03 AE 91 03 EC 92 
0370- 03 DO 06 AE 90 03 4C 00 
0378- 00 91 28 BD 93 03 20 88 
0380- 03 BE 91 03 AE 90 03 49 
0388- EB EO 3C DO 02 A2 60 60 


ignoré. Pour déconnecter aussi le 
stockage, il suffit de rétablir 
CHRGET. soit en réinitalisant l'Ap- 
plesoft {avec FP. CTRL-B ou 3D3G 
depuis le moniteur), soit en créant 
une routine en assembleur qui réta- 
blit CHRGET (mais surtout pas avec 
des POKESs ! Pourquoi ?] 


Ce type ahead” est pratiquement 
compatible avec tout programme Ap- 
plesoft à quelques restrictions près 


- I ne doit bien sûr pas se trouver au 
même endroit qu’une routine assem- 
bleur utlisée par le programme (en- 
trée par BLOAD, par DATA et 
POKE. ou bien par la routine de 
SH. LAM, ou une routine cachée” 
à la fin du programme). 


- Si le programme Applesoft lit direc- 
tement le clavier par PEEK(—16384), 
il est évident que le ‘type ahead” ne 
sera pas pris en compte. mais atten- 
dra le prochain GET ou INPUT, ou 
la fin du programme et le retour au 
niveau de commande de l'Applesoft, 
toutes opérations qui utilisent la rou- 
tine d'entrée de caractères. 


- Si le programme Applesoft repro- 
gramme la sortie de caractères. il faut 
refaire un CALL 768 après cette re- 
programmaton (si 768 est l'adresse 
où l’on a assemblé le “type ahead”). 
Dans la majorité des cas. il ne devrait 
pas v avoir de conflit entre la routne 
reprogrammée et le ‘type ahead” 


- Ce ‘type ahead” est totalement al- 
lergique à PLE : il ne marche pas si 
PLE est présent. De plus. si le “type 
ahead” est actif, le chargement de 
PLE peut conduire à une catastro- 
phe. 


- Les touches sont stockées au cours 
d'un CHRGET, c'est-à-dire quand 
l'interpréteur progresse dans le pro- 
gramme. |l est donc inutile d'espérer 
stocker des touches pendant les 
appels à des routines assembleur ou. 
ce qui revient au même. pendant un 
LIST, un PRINT d’une chaîne de ca- 
ractères, ou encore un ordre DOS... 
toutes ces routines n'utilisant pas 
CHRGET. 


- Attention à ne pas initialiser deux 
fois consécutives le "type ahead” 
sinon l’aiguillage de la routine d'en- 
trée de caractères va se ‘mordre la 
queue” et il faudra appuyer sur 
RESET. 


Remarque: j'ai découvert après 
avoir rédigé cet article que le Diversi- 
DOS, un système d'exploitation ra- 
pide du commerce. possède une rou- 
tine de type ahead” utilisant la 
même appr@che, mais qui marche 
aussi sous DOS et en mode moni- 
teur. Bien entendu. ce programme 
est plus gros et plus complexe. 
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Courrier des lecteurs 


Olivier Herz 


1 - Dans le programme Hello de la 
page 26 (Porn's 6}. Je n'ai pas réussi 


à faire tourner le programme. 
Comment  définissez-vous ‘xAF: 
FEOC"? 


2 - Avec la fonction EXEC. INIT me 
donne une disquette initialisée qui ne 
rend plus la main à l'écran : curseur 
rectangle clignotant. 


Andre Van Eggelpoel - 4 rue Porche- 
fontaine - 94370 Sucy en Brie 


1 - L'adresse $OCFE, qu'on met en 
$AF,BO (par *AF:FE OC) dans le 
programme HELLO a été trouvée en 
assemblant le programme: c'est 
l'adresse de la fin du programme as- 
sembleur. En mettant cette adresse 
en $AF.BS aui est l'adresse de la fin 
du programme Applesoft, on peut 
cacher le programme assembleur 
dans le programme Apptesoft. 


2 - INIT ne fait pas de bien belles 
choses avec un fichier EXEC. car ce 
fichier va chercher les commandes à 
effectuer sur la disquette qui. après 


initialisation, 


ne contient que des 
oi D 


Je n'ai aucune formation informati- 
que. Je pourrais être un Appleomane 
presque heureux. maïs voici que se 
pointe le langage machine. dont je 
ressens à travers la lecture de Pom's 
l'utilité et la nécessité. Je m'attèle à 
la tâche avec persévérance. J'avoue 
que les résultats ne sont pas toujours 
encourageants et regrette l'absence 
de livres ou de manuels assez clairs 
pour être compris d'emblée par les 
néophytes. Cherchant à initialiser 
ma Seikosha GP 100AÀ en langage 
machine, j'ai essayé : 


1 - de mettre directement en $36- 
37: 00CI: l'imprimante s'initialise ef- 
fectivement, mais se borne à impri- 
mer le ‘*" du moniteur: 


2 - de faire un petit programme. qui 
hélas donne le même résultat que la 
tentative précédente : 

300: LDA #00 

LDX #CI 


STA $36 
STX $37 
RTS 
300G 


3 - en remplaçant le RTS ci-dessus 
par BRK. l'imprimante réagit toujours 
en imprimant x” ainsi que le 
contenu des registres qui apparais- 
sent à la suite du lancement de ce 


microprogramme. puis plus rien. 


L'ennui. c'est que depuis mes essais 
je narive plus à initialiser Fimpri- 
mante avec le classique “1 CTRL-P" 
à partir du moniteur. alors que le 
"PR# 1'"en Basic est toujours opéra- 
tionnel 


R. Burger - 67. rue Chauzy - 51800 
Ste. Menehould 


En réponse à votre lettre, voici quel- 
ques explications sur la reprogram- 
mation des entrées-sorties sur l’Ap- 
pie. 


a) Lorsque le DOS est absent : 


Les mémoires CSW ($36-37) et 
KSW ($38-39) contiennent l'adresse 
des routines de sortie et d'entrée de 
caractères. Par défaut. à l'initialisa- 
tion. ces adresses sont celles des rou- 
tines du moniteur COUTI1 ($FDFO) 
et KEYIN ($FDOC). Pour changer les 


DONNEZ DU RÉPONDANT A VOTRE APPLE 






IMAGOL présente 


MEM/TERM 











MEM/TERM est un logiciel de communication transformant un APPLE en terminal 
d'un APPLE Il ou Ill (transmission par ligne directe ou réseau P et T) 









K6P cations 













Games 


marbre LT à À 


— Exécution de programmes à distances. 
(Pour tous les programmes sous MEM/DOS 6 502). 
— Télémaintenance, diagnostic à distance. 
— Correction de programmes à distance. 
— Démonstration de programmes à distance. 
— Edition à distance, etc. 


IMAGOL 


L'artisan de votre réussite en micro-informatique professionnelle. 


CONFIGURATIONS REQUISES 


Poste Principal 
* 1 unité de disque, une carte Super-Sérial. 
+ 1 modem électrique ou acoustique. 

Poste Terminal: 

+ 1 unité de di£que, une carte Super Sérial, 
+ 1 modem slectriclua ou scousllqua avec porteuse. 
" Transmission par le réseau commuté 





1 à 5, rue GUTENBERG, 







75015 PARIS. 
Tél. : (1) 577.59.39. 


Resclions 662 46 47 
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routines d'entrées-sorties. il suffit de 
changer CSW ou KSW,. soit par des 
POKESs, soit par un programme as- 
sembleur comme le vôtre. 


NB - Pour déconnecter le DOS, il 
suffit de faire ”’:PR#O:IN#0” sous 
l'Applesoft (cf. Pom's 7 page 26: 
trucs et astuces). 


bi Lorsque le DOS est présent : 


CSW et KSW contiennent les adres- 
ses des routines du DOS qui s'oc- 
cuppent des entrées-sorties ($F9EBD 
et $9E81 pour un DOS 48kK: rempla- 
cer $9E par $SE pour un 32K)Ces 
routines font. après traitement par le 
DOS, un saut aux véritables routines 
d'entrée et de sortie (KEYIN et 
COUTI par défaut après le boot), 
dont le DOS stocke les adresses en 
$AAS3-AA54 (vrai CSW) et $AASS- 
A456 (vrai KSW). Notons que $AA. 
devient $6A.. pour un DOS 32K. 


I ne suffit plus. pour changer les en- 
trées-sorties. de changer CSW et 
KSW., car le DOS ‘trafique” ces 
adresses. Mais. au contraire. il y a 
deux solutions possibles équivalen- 
tes : 


- on fait suivre le changement de 
$36-37 ou $38-39 par un appel à 
INTDOS (CALL 1002 en Applesoft 
où JMP $3EA en assembleur). qui 
est la routine du DOS qui reprend en 
main les entrées-sorties. Alors. le 
DOS rétablit ses” adresses ($9E81 
et $9EBD) en CSW et KSW et remet 
les valeurs que l'utilisateur y avait 
mises. en $AA.. Cette méthode pré- 
sente l'intérêt de fonctionner en 48K 
ou 32K. 


- on change directement les valeurs 
des “vrais CSW et KSW ($AA.). 
Dès lors. cela n'a plus rien d'éton- 
nant que vos essais ne marchent pas. 
De plus. votre remarque sur "1 
CTRL-P" et "PR#1" s'explique très 
bien : faire ”’1 CTRL-P" depuis le 
moniteur ou ”:PR#1°” pour l'Apple- 
soft (voir Pom's 7 page 26 pour l'uti- 
lité des deux-points) ne fait que 
changer CSW et donc ne marche 
que si le DOS est déconnecté ( de 
même, “1 CTRL-K" et ":IN#1” ne 
changent que KSW). Au contraire, le 
"PR#1” et le ’IN#1* du DOS. que 
l'on peut faire sous Applesoft aussi 
bien que sous moniteur. font les 
choses correctement comme indiqué 
ci-dessus. 





Pourriez-vous me dire s'il existe une 
solution pour dépasser le nombre 
maximum de 106 titres au catalogue 
sur Apple ? Dans le cas qui m'inté- 
resse, il s'agit de l'exploitation d'une 
multitude de petits fichiers en Ap- 
plewriter if. 


Docteur J.-C  Selosse - 1 avenue 
Carnot - 62120 Aire sur la Lys 
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Malheureusement. il n'est pas possi- 
ble de mettre plus de 105 fichiers 
dans un catalogue, sauf à modifier la 
façon dont fonctionne le DOS. Ce 
que nous pouvons vous conseiller le 
cas échéant, c’est de regrouper plu- 
sieurs petits fichiers Applewriter en 
un seul. 


Vous mettez alors ”’.ep0O” au début 
de chaque fichier, pour bloquer l'im- 
pression du fichier. Pour imprimer le 
texte correspondant à un de ces fi- 
chiers originaux, il suffira de rempla- 
cer ‘.ep0" par ‘”.epl'” au début du 
texte avant de lancer l'impression. 
Cette recette fonctionne avec Ap- 
plewriter Il ou //e. 





d'ai bien reçu le dernier numéro de 
Pom's avec sa disquette. En essayant 
le calendrier sur Visicalc. j'ai eu la 
surprise de constater un décalage des 
jours de la semaine à partir du 3 jan- 
vier 84. alors que tout est normal 
pour une année non bissextile. Je 
pense qu'il faut remplacer. dans la 
formule de J7, la cellule B6 par la 
cellule D6, afin d'obtenir : 


>d7: + N6 — L6 +@IF(@GAND( 17, 
D6 < 3). 32, 33) 


Vous m'obligerez en confirmant le 
bien-fondé de cette correction. 


Claude Coviaux - 351 Bd. Pasteur - 
59500 Douai 


Vous avez parfaitement raison. ainsi 
que les nombreux autres lecteurs 
perspicaces ayant émis la même re- 
marque : ce bug nous rassure d'ail- 
leurs beaucoup sur Olivier Herz. 
Nous en étions arrivés à nous de- 
mander s'il n'était pas un extra-rer- 
restre. Mais, puisque ‘errare huma- 
num est”, tout est pour le mieux 
dans le meilleur des mondes ! 





L'informatique peut donner des ap- 
plications intéressantes dans le do- 
maine de la physique. J'ai écrit un 
programme qui visualise de manière 
bien animée des ondes sur l'écran, 
ainsi que leurs interférences. Les 
ondes sont définies par l'utilisateur à 
l'aide de fonctions, ou choisies parmi 
les vingt exemples proposés. Ce 
même progamme permet aussi de 
bien comprendre ce que signifie la 
mise à la vitesse v d'une onde sta- 
tionnaire. selon les transformations 
de Lorentz. Ceci met en évidence le 
rapport qui existe entre les ondes et 
la relativité. 
J'ai également écrit un second pro- 
ue sur les transformations de 
orentz. base de là relativité Ï} per- 
met de visualiser le comportement 
des règles et horloges des systèmes 
de référence soumis à ces transfor- 


mations. et de mieux comprendre la 
signification de ces formules. 

La relativité et la mécanique des 
ondes ne sont pour vous que des 
formules compliquées ! Voici des ani- 
mations et des visualisations qui vous 
permettront de mieux les aborder. 
Les programmes sont longs (16Ko 
chacun). le premier {Ondes et Relati- 
vité) étant pour moitié en langage 
machine. animation oblige. 


$erge Cabala - 13 rue du Pied de 
Roche - 25660 Saône 


Nous avons testé ces programmes 
qui sont maintenant bien au point. 
après un va-et-vient avec leur auteur. 
Nous ne pouvons les publier dans 
Pom's. compte tenu de la place 
qu'ils prendraient et de leur spécifi- 
cité. Contre un chèque de 100 FF 
pour remboursement de ses frais, 
l'auteur vous enverra les program- 
mes sur une disquette. avec deux ar- 
ticles d'accompagnement (14 pages). 
Jmæ 





Lecteur très intéressé de Poms. car 
uülisateur de l'Apple IL je suis tombé 
sur un os. On m'avait posé là ques- 
tion suivante: comment retrouver la 
position du curseur en HGR. pour 
balayer l'écran en testant la présence 
d'un dessin ? 


Exemple: un fichier de forme. avant 
été chargé. dessine une figure. puis 
on äjoute des points àvec un pro- 
gramme interactif. On veut lire 
l'écran et savoir s'il y à un point en 
telle ou telle position de l'écran. 


Y at-il des PEEKs pour cela ? 
Comment procéder ? 


Guy Fombonne - Montrouvin 
Tauxigny - 37310 Reignac 


En réponse à votre lettre. voici quel- 
ques précisions sur la fonction SCRN 
haute résolution sur Apple IL Pour 
tout ce qui concerne les détails tech- 
niques concernant l'organisation de 
la page haute résolution, je vous prie 
de vous reporter à mon article du 
numéro 5 sur HAIFA (pages 41-42), 
dont une des fonctions est justement 
le SCRN haute résolution. Si vous ne 
possédez pas le numéro 5. dont le 
second tirage est malheureusement 
épuisé. il vous faudra attendre la pa- 
rution (très prochaine) du recueil nu- 
méro 2 de Pom's. 


Eh non, il n'y a malheureusement 
pas dé PEEK qui dit si un point de 
l'écran est allumé! C'est beaucoup 
plus complexe, car un PEEK de 
l'écran donne l'état de 7 points ali- 
gnés. Voir l'article de JF Duvivier - 
les adresses du graphique (Pom's 1 
page 35 ou recueil page 24). 


La meilleure méthode est d'employer 
un petit programme Applesoft dont 


| 


EE * 


69 


70 


@ui, vous êtes invités 
gratuitement à gagner 
un voyage d'une se- 


maine pour deux per- 
sonnes au pays de la micro-in formatique. 

MICRO-EXPO, 9° congrès-exposition, carrefour interna- 
tional de la micro-informatique se tiendra à Paris, au Palais des 
Congrès du 22 au 26 mai 1984. 

Visitez cette manifestation qui vous offrira la possibilité 
exceptionnelle de rencontrer et de dialoguer avec plus de 
200 exposants français et étrangers, de suivre une trentaine de 
conférences professionnelles et grand public : comment choi- 
sir son tableur électronique, les systèmes intégrés : 1 - 2 - 3, 
Éisa, Visi/On, MS-WIN, choisir son micro, comptabilité et 
bases de données, Basic... Découvrez les dernières nouveautés 
dont certaines seront présentées en exclusivité. 

La multiplicité et la diversité des produits et techniques 
présentés à ce grand rendez- === 
vous annuel constitueront }; on dure 73PARES 
pour vous la garantie du bon Fr marée r cuirs 
investissement et de la bonne 
décision. 1 
I 
1 
1 
Ù 
j 


hale, huissite à Par 


TL 


por 





1 
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je joins le listing. Il y à une astuce qui 
consiste à faire deux XDRAWSs suc- 
cessifs d’une shape qui ne comporte 
qu'un point. Ces XDRAWS consécu- 
tifs s’annulent, mais si l'on relève la 
valeur du compteur de collision de 


après le second XDRAW. on trouve 
1 si le point où ont été faits les 
XDRAWS était allumé. O sinon. 


Bien sûr, si le programme dans le- 
quel vous utilisez ce SCRN haute ré- 


de shapes, il faudra changer l'adresse 
de début de table (232-233) à cha- 
que fois que vous utilisez une shape 
{pour indiquer soit la table du pro- 
gramme, soit la table du SCRN). 





l'instruction DRAW (mémoire 234) solution possède lui-même une table (ss) 
2 REM "SCREEN" HAUTE-RESOLUTION 1,0: POKE - 16304,0: HOME : 
UTAS 20: SCALE= 1: ROT= 0 
3 REM =========s============ 40 PRINT : INPUT POINT €CX,Y) ? 
Xe NT 
50 XDRAU 1 AT X,Y: XDRAU 1 AT X, 
10 POKE 232,0: POKE 233,3: FOR I Y:SC = PEEK (234) 
= 7/68 T0 773: READ J: POKE 60 IF SC = 1 THEN PRINT "ALLUME 
I ,J: NEXT "s GOTO 40 
20 DATA 1,0,4,0,4,0 70 PRINT "ETEINT®": GOTO 40 
30 POKE - 16297,0: POKE - 1630 





Tracé de courbes en conversationnel 


Ce petit programme permet d'intro- 
duire au terminal une fonction dont 
la variable est X et de la tracer sur la 
première page graphique. Par exem- 
ple : 


SIN(X) 
EXP(—X)+SIN(X) 
(22X)/(1—(X 2)) … 


Lorsque vous rentrez une fonction. 
vous devez bien sGr respecter une 
syntaxe compréhensible pour l'ordi- 
nateur (utilisez par exemple ‘’3+X" et 
non ”3X"). 


Pour qu'il soit possible d'introduire la 
fonction en conversationnei, il est né- 
cessaire de ‘tokeniser” l'expression 
saisie au clavier: cette opération 


constitue l’objet du sous-programme 
assembleur BTOKFON. Ce pro- 
gramme utilise deux routines de la 
ROM BASIC: le sous-programme 
GETLINE (en $D52C) qui corres- 
pond à la première partie de l'ins- 
truction INPUT. c'est à dire à la sai- 
sie d'une chaîne de caractères 
stockée à paitir de l'adresse $200 et 
terminée par un 0. Ceci permet d'uti- 
liser immédiatement l'autre sous-pro- 
gramme TOKENI ($D56D - cf 
POM'S 7) qui tokenise la chaine pré- 
cédemment saisie. 


Cette chaîne tokenisée est alors sto- 
ckée dans le programme BASIC à 
partir de l'adresse $080B qui corres- 
pond à l'adresse qui suit immédiate- 


Gilles Mauffrey 


ment le signe = de la définition de la 
fonction. 

REMARQUE . si vous voulez modi- 
fier le programme n'oubliez pas de 
changer cette adresse ni de conserver 
une place suffisante pour la tokenisa- 
tion de la fonction. 


Le programme B.TOKFON contient 
une seconde partie qui permet le 
tracé de fonction en inverse (blan- 
chissement de la première page gra- 
phique). 


Le programme BASIC peut être 
agrémenté d’une ‘Hard-Copy”, et 
peut également être assez facilement 
modifié pour réaliser le tracé de fonc- 
tions définies paramètriquement. 1m 








1 REM FONCTION CONVERSATIONNELLE 1 
30 INPUT "ABSCISSE D’ARRIVEE :"3X 
2 REM  (APPLESOFT) 2 
U MAXIMUM SUR L ‘ INTERVALLE 
40 MIN = FN F£&X1):MAX = FN F(X1) 

10 DEF FN FX) = : REM  ATTENTI 

ON CETTE REMARQUE, TRES UTILE 42 PRINT : INPUT “VOULEZ VOUS LE 

EN FAIT, DOIT CONTENIR AUTAN GRAPHE EN INVERSE *;AS$ 

T DE TEXTE QUE POSSIBLE. .CECI 45 10 = O:J0 = MIN 

SERVIRA À METTRE LA TOKENISA SO FOR I = 1 TO 280:X = XI + (I - 

TION DE LA FONCTION ENTREE EN 1) # (X2 - X1) / 279:Y = FN 

CONWVERSATIONNEL. . ... RECOPIER FCX) : 

DONC CE TEXTE OÙ N'IMPORTE G 60 IF Y < MI THEN MIN = Y 

UOI 70 IF Y > MAX THEN MAX = Y 
14 D$ = CHR$S (4): PRINT B#"BLOAD 80 NEXT I 

8.TOKFON" 8i HGR : HCOLOR= 7: IF LEFT$ {AS 
15 INVERSE : HOME : HTAB 10: UTAB 512 = *Q* THEN CALL 812: HCOLOR= 

2: PRINT “ENTRER LA FONCTION 0 

A TRACER": NORMAL : PRINT : PRINT | 82 VTAB 22: PRINT *"X VARIE DE *3X 

*“FCXI=" ;: CALL 768 Dire : 
20 INPUT "ABSCISSE DE DEPART :"3X 8S PRINT : PRINT °Y VARIE DE * ;MI 
Pom's n° 11 TA 


Nj" À "MAX 


8é JO = 191 x (JO - MIN) / (MAX - 


MIND: HPLOT 10,191 - JO 

90 FOR 1 = 2 TO 279:X = X1 + (I - 
1) x (X2 - X1) / 279 

100 Ÿ = FN F{X):J = 191 x CY - MI 
N) / (MAX — MIN) 

110 HPLOT TO I - 1,191 - J: NEXT 
I 

112 REM TRACE DES AXES, S’ILS NE 

SORTENT PAS DE L'‘’EPURE 

115 IF MIN > O THEN 127 

120 JO = 191 x © — MIN) / (MAX — M 
IN) 

124 JO = INT {J0) 

125 HPLOT 0,191 - JO TO 279,191 - 
Jo 

127 IF X1 > O THEN 140 


Programme BTOKFON 
DOS TOOL KIT 


0300: 
00B8: 
DS2C: 
DSéD: 
080B: 
0300 :ÀS 
0302:48 
0303:À5 
0305:48 
0306: 20 
0309:Â2 
038B:86 
030D: 20 
0310 :A9 
0312:99 
0315:88 
0316:A9 
0318:99 
031B:88 
031C:B9 
031F:99 
0322:88 
0323:D0 
0325:68 
0326:85 
0328:68 
0329:85 
032B:60 
032C:A9 
032E:85 
0330:85 
0332:A0 
0334:49 
0336:85 
0338:A9 
033À:91 
033C:C8 
033D :DO 
033F :Eé 
0341 :Cé 
0343 : DO 
0345:60 
72 


1 ORG +$300 
2 TXTPTR EQGU $B8 
3 GETLIN EGU $D52C 
4 TOKENI EQGU $DSé6D 
5 PLACE EGU %$80B 
B8 6 LDA TXTPTR 
7 PHÂ 
89 8 LDA TXTPTR+1 
9 PHA 
2C DS 10 JSR  GETLIN 
00 11 LDX #00 
13 12 STX +13 
é6éD DS 13 JSR TOKENI 
B2 14 LDA #178 
0B 08 15 STA PLAÂACE,Y 
16 DEY 
3A 17 LDA #$3Â ; 
0B 0818 STA PLACE ,Y 
19 DEY 
FC 01 20 TRF LDA S$1FC,Y 
0B 08 21 STA PLACE,Y 
22 DEY 
F7 23 BNE TRF 
24 PLA 
B9 25 STA TXTPTR+I 
26 PLA 
88 27 STA TXTPTR 
28 RTS 
20 29 LDA #$20 
O1 30 STA 1 
02 31 STA 2 
00 32 LDY #00 
00 33 LDA #00 
00 34 STA 00 
FF 35 LDA K#$FF 
00 36 BCL STA <{00),Y 
37 INY 
FB 38 BNE BCL 
O1 39 INC 1 
02 40 DEC 2 
F5 41 BNE BCL 
42 RTS 


130 


135 
140 


145 


147 


150 


160 


170 


10 = 


279 # € —- X1) / (X2 - X1) 

: HPLOT 10,0 TO 10,191 

FOR J = 1 TO 1000: NEXT 

REM  EVENTUELLEMENT HARD COPY 
(PREMIERE PAGE EN ENTIER) 

PRINT “VOULEZ VOIR LA FONCTIO 

N EN ENTIER :";: INPUT À$ 

IF LEFT$S (A$S,I1) = "O0" THEN POKE 
— 16302,0: FOR J = 1 TO 1000 


O0: NEXT : POKE - 16301,0 

PRINT : PRINT : PRINT : INPUT 
“VOULEZ VOUS TRACER UNE AUTRE 
FONCTION 7? ";A$ 

IF LEFT$ CA$,1) = *Q* THEN TEXT 
: GOTO 15 

TEXT 


; *POUR LA TOKENISATION DE LA FONCTION 


5* TOKEN DE REM 


3*MISE ENPLACE DE LA TOKENISATION 





RECAPITULATION 

0300- ÀS B8 48 ÀS5 B9 48 20 2C 
0308- DS 42 00 86 13 20 6D D5 
0310- À9 B2 99 0OB 08 88 A7 SA 
0318- 99 0B 08 88 B9 FC 01 99 
0320- 0B 08 88 DO F7 68 85 B9 
0328- 68 85 B8 60 À9 20 85 01 
0330- 85 02 A0 00 À9 00 85 00 
0338- À9 FF 91 00 C8 DO FB Eé 
0340- 01 Cé 02 DO F5 60 
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Apple-Tellestunsystème qui fait d'un simple Apple 
(votre Apple de tousles jours) un minitel intelligent. 


J 

e 

e 

ce 
He 
CJ 

y 

L.J 

S] 


rl 


CUTELTESE PT 
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x fe PATES 
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DAT 81 504 


El CC ZAC 


ele Depp er ver pp 





PERRET ÿ, 
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vs ls 


| d'asile 7415156 
D LE L 
CUTTEPEESTTS | 
Hi H1# 
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mes 7 


AL MITA | 


Ancle -7ell Tprend: 


— une carte Modem iricluant un ŒCDdEUT Teletel 1 
— un logiciel d'Emulatlon de Terminal Minitel enrichi de trois ébloulssantes fonctions (celles qui 
faisalentle plus défaut jusqu'à présentsur votre minitel) ; 


IMPRESSION : l'imprimante æ votre Aop/e est exploitée pour sortir les coples papler dont vous 
avez 0esoin lorsque vous consultez un serveur. 


STOCKAGE : les disquettes «æ vetre Anale sont Utilisées pour enregistrer les pages dont ta 
consultation vousest nécessaire : 
+ auformat Teletel (c'est-à-dire telles Que vous les avez reçues), 
en mode Texte pur (ASCII) pour exploitation locale ultérieure. 


AUTOMATISME : l'intelligence æ otre Agpe est rnablitsée pour accomplir l'interrogation 
automatique du serveur que vous avez désigné (appel téléphonique. orlentation TRANSPAC, 
identification,cnolx successifs), enregistrer sur papier et/ou sur disque les données 
consultées, puis pour traiter celles-ci, en les {ncorporant dans votre application. 

(Les Procédures d'interrogation sent créées par l'utilisateur, sans aucun 
langage de programmation, grâce au mede Apprentissage d'Apple- Tell.) 


Evénement du demier SICOB, salué par toute la presse, consacré Pomme d'@r 1583 par le lry 
Apple, le système Apple-Tell marque une mutation décisive dans l'évolution des techniques 
Videotex en environnement professionriel : 

#pointa'arrêt à la prolifération des matériels sur votre hureau(effet “mini-Sicob"} 

eut{lisation optimale des ressources dont vous disposez déjà (disques, imprimante lagiciels,etc.), 
utilisation possible en mode Terminal autant qu'en mode Serveur (Jusqu'à six portes), 

enfin (et c'est sans doute le point te plus Important) JONCTION entre te monde extérieur etet les 
outils standard de votre Apple : lincorporation de données dans Agple-Wwriter, Visicalc, 


Multiplan, PFS, Quick-File, etc.,et même dans vos applications personnelles (comptabtiité, suivi 
de commandes, flcnter ….) devlent possible. 






E 





Caractéristiques générales : 
- Modem multimodes : 


-1200/75, 1200 (haif-duplex), 
600(helf-duplex), 300 (full-dupiex), 
Standards CCITT et BELL (cette 
caractéristique unique rend accessibles les 
serveurs nord-américains, y compris par 
réseau téléphonique commute), 


° Sorties : video composite (N8B) et Peritel 
couleur. 


+ Compatible Apple 2 , Apple 2+, Apple 2e 
{48k, une disquette) 

° Enfichable dans n'importe quel slot libre de 
votre Apple 2. 


+ Transparence totale vis-à-vis du système. 


BON DE COMMANDE 


HELLG Informatique - 4 





rue de Metz 75010 PARIS 


Tél : (1} 523 30 34 - Telex FLASH 210S00F 
Nom Société 
Adresse complète 





(règlerrent ci-jpint per : 


[] cnèque bancaire 


Ville Code Postal tél. 


Sounaite recevoir une decumentatien sur le système Ample-Tell 


C Commande LC] 


système(s) Apple-Tell au prix de F. S9300 H.T. 


t:ccP) 
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Montant 
TTC 
e la disquette HAIFA Source| | au prix de 55 F la disquette (cf. Pom’s n° 5) _ 
e le logiciel H-BASIC [_] au prix de 150 F (cf. Pom’s n° 8) 
© le logiciel MUSIC [_] au prix de 80 F (cf. Pom'’s n° 10) 
e le Disk Manager [_] au prix de 450 F (cf Pom's n° 11) 
e DBSTAG (CP/M) [_] au prix de 450 F (cf Pom's n° 11) 
e Recueil n° 1 de Pom's {n° 1 à 4) 
[_] avec ses 3 disquettes au prix de 270 F 
[] sans disquette au prix de 120 F 
[] les 3 disquettes seules au prix de 150 F 
e Recueil n° 2 de Pom's (n° 5 à 8) - Parution 15 avril 
[_] avec ses 4 disquettes au prix de 310 F 
[_] sans disquette au prix de 120 F 
[_] les 4 disquettes seules au prix de 190 F 
Je désire recevoir : 
e les numéros de la revue Pom’s [14 []7 []8 
au prix de 35 F le numéro | 
e les numéros de la revue Pom's a io TM 
au prix de 40 F le numéro 
© les disquettes d'accompagnement des numéros 
UNE NB QE ES EE IGi ie 7 8 SAONE 
au prix de 55 F par disquette 
Je désire m’abonner pour 6 numéros à partir du n°... 
[_] sans disquette au prix de 200 F 
[_ ] avec disquettes au prix de 480 F 
TOTAL : 
Envoyez ce bon de commande et votre règlement à : 
Éditions MEV - 49, rue Lamartine - 78000 Versailles 
Nom 
Adresse 
Ces tarifs comprennent l'envei pestal en France Métropolitaine, CEE et Suisse (voie aérienne exceptée) 
Supplément avion : 10 F par numéro et / ou disquette 
74 Pom's n° 11 
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bibliothèque Apple 


des livres utiles pour concevoir 


‘ à de 


vos propres programmes sur Apple 


sratarats 





















Ecrivons un programme pour Apple -:::: 


Pour vous amuser en apprenant la programmation sur un micro ,+°1»"a 
ordinateur qui semble doté de pouvoirs magiques. Vous apprendrez ,*,*.°,°, 
à lui donner des ordres en BASIC et, toutes sortes d'instructions, 


8 à à » a 
Vous pourrez vous en servir pour dessiner. Vous le comprendrez DE sans 
et vous saurez le faire fonctionner en ouvrant ce livre. lan ape. 
1C0544 99,00F «°°°: 


Vous et lordinateur Apple RO 


Un livre pour tous ceux qui veulent connaître l'APPLE et s’en faire l,°,°,°.* 
un ami. C 
33 leçons pour apprendre à programmer en BASIC, chaque leçon 
est illustrée de commentaires, d'explications, de programmes et |,°,°.*,°, 


d'exercices complémentaires. péatatata 
1C0542 129,00F  |,°,°,°,1 


Le Logo sur Apple RARE 


Un livre pourfaire l'apprentissage de LOGO, un moyen d'expression {| 4 « 
très puissant. B’une façon très vivante, ce livre explique les étapes |*,°,°,+, 
à suivre pour concevoir et réaliser toutes sortes de projets. à partir 
de la tortue LOGO, ce célèbre petit animal cybernétique qui se 
déplace sur l'écran en laissant une trace derrière lui. 

1C0543 129,00 F 





84 CD 6913 






Jeux vidéo, jeux de demain 


CEDIC/NATHAN/LEP 


Les jeux vidéo et les jeux sur ordinateurs envahissent 
notre environnement. Pour se retrouver dans la 
jungle des envahisseurs, simulateurs de vol, football, 
joyeux voraces et autres aventures... pour mieux les 
comprendre et mieux les exploiter. voici des 
informations sur leur impact, des conseils sur la 
manière de les utiliser, et un banc d’essai des conso- 
les actuelles. 

1C0521 59,00 F 
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LE COIN «APPLE» 
ET COMPATIBLE 


Moniteur couleur 

Meniteur corrosé pour Apple 12° 3520 F 
Carte RGB pour Apple +... 699F 
e Le meñiteur idéal Pe@ur teut miri ou micro-erdinateur avec entrée 
RGB e Tetalement competible avec les erdinateurs individuels 
Apple !Il et IBM sans aucune interface cermslémentaire e Cartes 
interfaces .RGB Il: disponibles pour compatibilité Apgle IE 


Floppy disk compatibles 


Srictementcompatibles ces.fleppy; Sent Saranlis 1 an et cemmet- 

ciallsés dans la versien Half Size. Be plus le Track te Track de 3 
millisecondes les classe patmi les plus rapides 5" 

Fleppy sans centréleur 2699 F avec centréleur 3459 F 


Joysticks pour Apple... S80 F 


de commuter le levier en mode stable ou instable, 
































Programmateur de mémoire 
EPROM pour APPLE 


Cabäble de progammer les 2708. 2716. 
2732. 2758. 2532. Complet tes € 1868 F 


Alimentation à es 

découpage 

Mëmes dimensiens que l'alimentation Apple 

soit — 5V, 2.54 + 12V, 1.5A 

= 12 V.- 0/51 VIDA Lrsmorenest 7 799 F 


Disques durs pour Apple 


17800 F clés en main 
6.7 Mega ectets compatibles Bes 3.3 Pascal et CP/M 


Carte RGB + 60 colonnes. 1840 F 





pour Apple II E. 
Coffret type Apple mn 898 P 
avec découpe pour pavé numérique. 
Tarif Hard 
APPLEHE Clavier numérique 1290 F 

Carte 88 C... 998F | Carte A/@ 16 voies 3620 F 
CarteS@C + SAKRAM2379F Carte herlege : 1060F 
Cane 88 C + 64K Carte 16 K Apple li +1330F 
+ Péritel... 2970 F APPLE fil 
InterlaceSérie 7 13860 F Interface parallèle 1635F 
Interface Parallèle... 1360 F Sylentype Il... 2640F 
Interface Megdem. 5708 F | Pascal … 2120 F 
Disk Apple 2990 F | Visicalc 2700F 
Carte BRé*S PRESS 165F | Apple Writer M. 1580 F 
Poignées 280 F | Carte couleur 
ZBDavec CP/M 3100 F | Péritélévisien 820 F 

Compatible gl 

Cartelangage 695 F 

Carte Z 8e HS 995E 

Carte 128 K RAM 2200 F 
Clavier type Apple 950F 
Carte musicale nes meer DO 0 E 
Carte hertoge … Le 280 E 
Cane communication . : an 900 F 
Ventilateur... OT ACER …350# 
Carte 6522 ia Ê Ë 550F 

BIENTOT 


| safon. 














Penta 8 


34,rue de Turin. 75008 PARIS. Tél. 293.41.33 
Métro : Liège. St-Laære. Piace Clichy. Télex 614789 


Penta 13 


16. bd Arago. 75813 PARIS, T4 3362605. 
Métro : Gobelins (service coirespendance et Magasin} 


Penta 16 


5. rue Maurice Beurdet. 75016 PARIS. Tél 5242316 
(Pont de Grenelle} - Metro Charles Michels 
Bus 70/72. Maisen de l'ORTF 


Prix TTC donnés à titre indicatif 
pouvant variés en fonction des 


approvisionnements. 


Une seuris pour Apple Il + 
et ILE. Cttlsable avec 69 K 
de RAM mirimum et d'un 
lecteur avec centréleur Li- 
vrée avec Sen câble d'inter- 
face. une disquette de pré- 
sentatienet senguide d'utili- 
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ENTA SERVICE 


1 3 500 ad 


PROMOTION 
APPLETIIE 


e Apple soft 12 K ROM e RAM 64 K e Clavier AZERTY (français) ou 
QWERTY e Alimentation à découpage e Sortie vidéo. 

MONITEUR APPLE Bande passante 18 MHz e TOP lignes à 40 pS e 
Ecran vert e Modification de l’angle de vision e FLOPPY lecteur 5°” e 
Capacité 143 K - Avec DOS 3,3 e Alimenté par l'unité centrale Il E. 





APPLE III 


256 K, avec disquette 5” 
et disque dur 5 Mjoctets 


43800 


e UC 6502,256 K de RAM e 4K de ROM 8 Affichage 80 x 24e Ecran vert 
anti-reflet e Graphismes Couleur e Clavier 74 touchese 5 MJoctets sur 
disque dur. 





IMAGEWRITER, 
l'imprimante conçue pour votre Apple 


e 180 cps e moins de 53 dBA e Matricielle 7 x 9 F 
programmable 16 x 8 e Interface RS 232 e Mé- 4 560 
moire tampon 1 K e Vitesse transfert 300, 1200, 

2400, 9600 « Kit accessoires Il ou II 272 F. 


DUO-DISK, 
floppy double unité pour Apple 7580’ 


e 2 x 140 K/o formatés < Kit accessoires 1135 F 











LOG ICI ELS APPLE | I E ” {* logiciels pouvant être prêtés aux conditions du «Bon à découper» ci-dessous.) 
* VISICALC (français) : traitement de planning, - ORCA : un des meilleurs assembleur pour - APPLE LG8 : initiation à là Semen 3 oi 
gestion, budget, linance, tabrication 2706 F ÉAUE à NNNES PRDRRREER” 1490 F UOTE resrccrsnenenenrinu: € 
7 MULTIPLAN : Mèmes utilisations que VIS)- * APPLE WRITER : traitement de texte 1572 F - APPLE PASCAL langage RES sisi UE ï 
NT mais traitement d'écran glus somhisli- 7 BUSINESS GRAPHIQUE : traitement graphique " CX BASE 200 : création et né e 
Ge 2420 F des valeurs aarériques 1375 F fichiece ASC 
: WSBLOT fabrication de courbes eu d'histo- - APPLE FORTRAN : langage 1659 F 2CX TEXTE : traitement de texte rat ae 
gremmes à PATES de données numériques - QUICK FILE : tratement de fichier…..790 F OX BASE 200saesiasssines 
1630 F * VISIFILE : création et geston de fichier 2833 F + GX BASE 200 + CX TEXTE... 3000 î 
DECOUPEZG 
© 
CE BON BON POUR UN ESSAI GRATUIT 
ASSURANCE DE 10 JOURS 
LOGICIEL Ce bon vous donne droit au prêt d'un logiciel APPLE précédé 
d'un astérique dans notre publicité. A être guidé dans vos pre- 
APPLE miers pas sur ce logiciel par un technicien PENTASONIC. 
PENTASONIC s'engage à re- TyRelegsrsoenmeEninEsEeuns nidéSériBesrennenrernsessnss 
chercher et à démarrer avec 
veus parmi les legiciels stan- Daleid'essaällisssmnrenanienee Bate de retour 
dards celui qui correspond 
exactement à VOS BESOINS Cette offre n'est soumise à aucune obligation d'achaL If vous sera simple- 
TESTEZ LE PENBANT ment demandé un chaque de caution. 
18 JOURS GRATUITEMENT l 
CO SÉPRQ CRS PR AS) 
DECOUPEZ &— 
CE BON POUR BON DE DEPANNAGE IMMEOIAT 
BENEFICIER de votre matériel APPLE ou 
D'UN PRET D'UN APPLE EQUIVALENT 
Si le dépannage immédiat s'avère impossible” 
DEPANNAGE Ce nouveau service PENTA-APPLE implique œue le matériel soit 
IM MEDIAT d'origine PENTASONIC. Ledépannage s'effectuera dans un des 
points de vente PENTA. 
DE VOTRE PENTAT (8 L13[] 
MATERIEL Bate d'achat 
APPLE Sauf rupture de stock sur les piéces détachées d'origine 
Attention, il est préférable de VANEY Ÿ, 
prévenir nes techniciens de <> * ir 2 
votre passage! are «< 


